Hi,

ihr kennt doch alle Word oder?

Wenn man da ein Fehler macht wird das Wort rot unterstrichen.

Aber wie bringe ich Delphi bei das er das auch machen soll? D.H. Ich hab ein RichEdit und wenn dort ein Wort drin ist das nicht in der Wortliste steht. Die Wortliste ist eine TXT-Datei. Dann soll er das Wort rot markieren.

Ich hab aber ka wie ich das machen soll.

mit seltext müsste das gehen, da gibts irgendeinen
eintrag der sich damit beschäftigt

Probiers doch mal so:

zusammenfalten · markieren

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.

Achso, der Text wird nicht unterstrichen, sonder markiert

man muss den text doch nur makieren und dann formatieren zu
unterstrichen

oder?

Zitat von Baal:

man muss den text doch nur makieren und dann formatieren zu
unterstrichen

oder?

Daher ja das SelStart, SelLength und SelAttributes. Gibt's aber auch schon mehrere Beiträge zu dem Thema.