Stavekontrol

Måske kan du finde noget på http://www.torry.net/spellcheckers.htm

hvis du ska opnå noget ordentlig, skal du nok bruge synedit og så spellchecker på den.

Med richedit kommer til at gå langsom, men hvis den ikke skal opdatere hele tiden kan det lade sig gøre.

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: integer;
  inText: string;
const
  Textcolor = clred;
begin
  inText := 'test';
  Y := length(RichEdit1.Text);
  for X := 1 to Y do
  begin
    if Copy(RichEdit1.Text, X, Length(inText)) = inText then
    begin
      RichEdit1.SelStart := X - 1;
      RichEdit1.SelLength := length(inText);
      RichEdit1.SelAttributes.Color := Textcolor;
    end;
  end;
end;

finder et ord og laver den så rød