Zeilen mit Stringliste bis zu bestimmten Zeichen auslesen

[marabu]

Wenn einen der Ehrgeiz packt:

Delphi-Quellcode:

function TForm1.CreateTypLists(fn: TFileName; cStart, sStop: Char): TStrings;
var
  i, iStart, iStop: Integer;
  s: String;
begin
  Result := TStringList.Create;
  Result.LoadFromFile(fn);
  for i := Pred(Result.Count) downto 0 do
  begin
    iStart := Pos(cStart, Result[i]);
    iStop := Pos(cStop, Result[i]);
    if (iStart = 0) or (iStop < iStart) 
      then Result.Delete(i)
      else Result[i] := Copy(Result[i], Succ(iStart), Pred(iStop - iStart));
  end;
end;

Freundliche Grüße

marabu