text in richedit einlesen

[DeddyH]

Mal etwas umgeschrieben (wieder 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) or AnsiContainsText(s,sStart)) do
          readln(f,s);
        while not (EOF(f) or AnsiContainsText(s,sEnd)) do
          begin            
            sl.Add(s);
            readln(f,s);
          end;
        CloseFile(f);
      finally
        sl.EndUpdate;
      end;
    end;
end;