text in richedit einlesen

[DeddyH]

Noch ein Vorschlag (ungetestet):

Delphi-Quellcode:

procedure ReadFromTil(const sl: TStrings; const sStart, sEnd, sFile: string);
var f: TextFile;
    s: string;
begin
  if not FileExists(sFile) then
    raise Exception.CreateFmt('Datei "%s" existiert nicht.',[sFile])
  else
    begin
      sl.BeginUpdate;
      try
        sl.Clear;
        AssignFile(f,sFile);
        Reset(f);
        while not EOF(f) and (Pos(sStart,s) = 0) do
          readln(f,s);
        while not EOF(f) and (Pos(sEnd,s) = 0) do
          begin
            readln(f,s);
            sl.Add(s);
          end;
        CloseFile(f);
      finally
        sl.EndUpdate;
      end;
    end;
end;