Zitat von
Matze:
Grob geht es so, wie folgt gezeigt. Das zu überprüfen und in eine Funktion zu packen, ist deine Aufgabe.
Delphi-Quellcode:
var
SL: TStringList;
i: Integer;
begin
SL := TStringlist.Create;
try
SL.Delimiter := ';';
SL.DelimitedText := 'AAA;BBB;CCCCC;DDDF;KKK;';
for i:= 0 to SL.Count - 1 do
if SL[i] <> '' then
ShowMessage(SL[i]);
finally
FreeAndNil(SL);
end;
end;
Ich schreibe das nur, weil ich gerade Zeit habe. Normalerweise mache ich das nicht. In der
DP steht es ähnlich sicher irgendwo.
Danke. Mit TStringList hab ich bis jetzt kaum gearbeitet.
Danke schön
MfG Dave