Zeilen mit Stringliste bis zu bestimmten Zeichen auslesen

[DragonsTear]

Tschuldigung, Textdatei ist das Resultat von der Funktion CreateStrings die oben beschrieben ist.

Delphi-Quellcode:

function CreateStrings(fn: TFileName; nvSep: Char): TStrings;
begin
  Result := TStringList.Create;
  with Result do
  begin
    NameValueSeparator := nvSep;
    LoadFromFile(fn);
  end;
end;