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');