Do While i < Main.PersLst.Size
Dim s as String
Dim lst as List
Dim mnr As Int
Dim arbstart As String
Dim vorname As String
Dim name As String
Dim i As Int
s = Main.PersLst.Get(i) 'actual Row of recieved list from Server'
lst = util.StrTok(s, ";")
mnr = util.atoi(lst.Get(1))
arbstart = lst.Get(2)
vorname = lst.Get(3)
name = lst.Get(4)
EdText.AddTextItem(mnr & " - " & util.zt2str(arbstart) & " - " & vorname & " " & name, i+1)
i = i + 1
Loop