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.