Zeilen mit Stringliste bis zu bestimmten Zeichen auslesen

[DragonsTear]

            Itemnamen.Items.Assign(ItemListe); In dieser Spalte

EDIT : Ich habe bei der von marabu geposteten Funktion vor das sOut.Clear ein sOut.Create hinzugefügt damit die Liste auch kreeiert wird...

Delphi-Quellcode:

procedure ExtractNames(sIn, sOut: TStrings);
var
  i: Integer;
begin
  sOut.Create; // von mir hinzugefügt //
  sOut.Clear;
  for i := 0 to Pred(sIn.Count) do
    sOut.Add(sIn.Names[i]);
end;