solange vorher geprüft wird, ob eines drin ist, nicht.
also das läuft und ist wohl auch am efektivsten (mit den Standrardroutinen):
Delphi-Quellcode:
i := Pos(',', s);
if i > 0 then SetLength(s, i - 1);
Dieses
Delete(s, pos(',', s), Length(s));
sollte zumindestens etwa so aussehn
Delphi-Quellcode:
if pos(',', s) > 0 then
Delete(s, pos(',', s), Length(s));
//oder doch lieber so
i := pos(',', s);
if i > 0 then Delete(s, i, Length(s));
[add]
@Hawkeye219: das hätte ich jetut och nicht gedacht ._.