String nach Zeichen absuchen und davor alles löschen

[Christian Seehase]

Moin Poker,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Mit Delete funktioniert es nicht, da die Eigenschaft Strings einer TStringList keine Variable ist.
(Weil Strings die Default-Eigenschaft einer TStringList ist muss man sie nicht mitschreiben, sondern direkt sl[Index] schreiben, statt sl.Strings[Index])

Du könntest Dir mit Copy behelfen, z.B. so:

sl[ZeilenNr] := Copy(sl[ZeilenNr],Pos(':',sl[ZeilenNr])+1,MaxInt); Pos(':',sl[ZeilenNr])+1
damit der Abschnitt hinter dem : angesprochen wird, und

MaxInt
weil der Rest des Strings übertragen werden soll, und Copy automatisch aufhört, wenn der String zu Ende ist. Man muss in diesem Falle also nicht berechnen, wie lang der String ist, der kopiert werden soll.