text in richedit einlesen

[nahpets]

Hallo,

Vorschlag:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
          f : TextFile;
          s : String;
begin
  AssignFile(f,'meineriesengrossetextdatei.txt');
  Reset(f);
  Repeat
    ReadLn(f,s);
  Until (EoF(f)) or (s = 'start');
  ReadLn(f,s);
  Repeat
    RichEdit1.Lines.Add(s);
    ReadLn(f,s);
  Until (EoF(f)) or (s = 'ende');
  CloseFile(f);
end;

Hierbei gehe ich davon aus, dass der Beginn des Textteiles, in dem gesucht werden soll, klar erkennbar ist (hier durch die Zeichenfolge "start") und dass das Ende des Textteiles, in dem gesucht werden soll, ebenfalls klar erkennbar ist (hier durch die Zeichenfolge "ende").
Abhängig davon, was Du suchen musst und wie Du mit den Ergebnissen umgehen muss, könntest Du die Suche aber auch in der zweiten Repeatschleife durchführen.

Delphi-Quellcode:

Repeat
  RichEdit1.Lines.Add(s);
  ReadLn(f,s);
  If Pos('Suchmichmal',s) > 0 Then RichEdit1.Lines.Add(s); // nur ein Beispiel
Until (EoF(f)) or (s = 'ende');