|
Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
Delphi 5 Professional
|
Re: string durch ; getrennt
8. Sep 2004, 13:56
Dafür kannst du auch TStringList missbrauchen. Stichwort: Delimiter und DelimiterText.
Das könnte dann z.B. so aussehen...
Delphi-Quellcode:
var
List: TStringList;
I: Integer;
S: String;
begin
S := '1345123515;345235;2352354;23452345;';
List := TStringList.Create;
try
with List do
begin
Delimiter := ';';
DelimitedText := S;
for I := 0 to Count - 1 do
ShowMessage(Strings[I]);
end;
finally
List.Free;
end;
end;
Ciao, Sprint.
"I don't know what I am doing, but I am sure I am having fun!"
|