Texte auslesen die mit ; getrennt sind

[DaveRidge]

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