Fehler Rot unsterstreichen.

[Uncle Cracker]

Probiers doch mal so:

Delphi-Quellcode:

function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): boolean; 
var 
  startpos, position, endpos: integer; 
begin 
  startpos := 0; 
  with RichEdit do 
  begin 
   endpos := Length(RichEdit.Text); 
   Lines.BeginUpdate; 
   while FindText(SearchText, startpos, endpos, [stMatchCase])<>-1 do 
   begin 
     endpos := Length(RichEdit.Text) - startpos; 
     position := FindText(SearchText, startpos, endpos, [stMatchCase]); 
     Inc(startpos, Length(SearchText)); 
     SetFocus; 
     SelStart := position; 
     SelLength := Length(SearchText); 
   end; 
   Lines.EndUpdate; 
  end; 
end; 




procedure TForm1.Button1Click(Sender: TObject); 
begin 
   SearchForText_AndSelect(richedit1,'Hier der zu suchende Text'); 
end;

Musst noch den zu suchenden Text mit dem Text der TXT-Datei ändern.