Fehler Rot unsterstreichen.

[Die Muhkuh]

Hi,

ihr kennt doch alle Word oder? :roll:

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.

[Baal]

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

[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.

[Uncle Cracker]

Achso, der Text wird nicht unterstrichen, sonder markiert

[Baal]

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

oder?

[Tpercon]

Zitat:

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.