Hier mal ne Funktion zum Teilen von Text:
Delphi-Quellcode:
procedure TCheckCompObject.SplitString(Str: string; Separator: Char; var ts: TStringList);
begin
try
ts.Clear;
while AnsiPos(Separator, Str) > 0 do begin
ts.Add(trim(Copy(Str, 1, AnsiPos(Separator, Str) - 1)));
Str := Copy(Str, AnsiPos(Separator, Str) + 1, Length(Str));
end;
ts.Add(trim(Str));
except
//
end;
end;
end;
Du mußt ne StringList übergeben und darin stehen dann die einzelnen Teile. Dann prüfst du, ob da 4 Werte enthalten sind und schon schon hast du die 4 Werte.