Hvis stavefejl så er tekst rød..

først skal du nok lave et (stort) array der indeholder alle (!) ord der kan bruges.. derefter samligner du det indtastede ord med ordene i array'et.. hvis det ikke er der, skal der ændres på font-format-tingest..

jeg bruger visual basic, så jeg er ikke sikker på hvordan det gøres i delphi..

men det burde virker..

/theSurfer.

*sammenligner even

jeg forstår ikke... Er der ikke et komponent der kan det??

komponen der kan hvad ?

hvilken version af delphi bruger du? prøv at tage et kig på activex pagen.

Prøv noget lign. dette...


procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  s : String;
begin
  with RichEdit1 do
  begin
    SelStart := 0;
    SelLength := Length(Text);
    SelAttributes.Style := [fsUnderLine];
    SelAttributes.Color := clRed;

    if Pos(' ', Text) > 0 then
    begin
      SelStart := Pos(' ', Text)-1;
      SelLength := 1;
      SelAttributes.Style := [];
      SelAttributes.Color := clWindowText;
    end;

    if AnsiPos(LowerCase(' hej'), LowerCase(Text)) > 0 then
    begin
      SelStart := AnsiPos(LowerCase(' hej'), LowerCase(Text))-1;
      SelLength := 5;
      SelAttributes.Style := [];
      SelAttributes.Color := clWindowText;
    end;

  end;
end;

Delphi 6.. Hvad er der i activex pagen?? Der er en komponent der hedder Spell..

zerohero> hvad kan den??

prøv og se efter... :-)) Hvis du skriver 'hej' i en TRichEdit (døbt RichEdit1) lader den teksten være "normalt" alt andet bliver rødt med en understrergning... Dette er grund-principperne fir det du gerne vil lave - alt du skal gøre er at videre-udvikle den!!! "Terningerne er kastet!!!"

Fin nok.. men det betyder at jeg skal udvikle den sådan at jeg skal skrive ALLE ordene.. Det tager 100 år

hvis du ved at dine brugere har word installed kan du med fordel bruge Spell. Den bygger på words ordlister

Naarh tror godt du kan gå en ordbog igennem på et par år :)

Ellers prøv som "dkn" siger at kigge på VSSpell.
Følgende kode virker på engelsk iværtfald, ved ikke helt hvordan man skifter til andet sprog.

procedure TForm1.Button1Click(Sender: TObject);
begin
if RichEdit1.Text <> '' then
begin
  VSSpell1.CheckText:= RichEdit1.Text;
  If VSSpell1.ResultCode= 0 then
  begin
    RichEdit1.Text:= VSSpell1.Text;
  end;
end;
end;

Geek

Gå ind på sourceforge, der er der adskillige open source stavekontrol projekter kørende som du kan med fordel benytte.

Ellers kan du bruge MS Words indbyggede stavekontrol. Gå ind på http://Delphi.About.com der er der en udmærket tutorial i hvordan du bruger den (Du kan bare copy paste koden så kører det ;) )

Det skal dog siges at den stavekontrol der følger med MS Word må ikke bruges til commercielle formål whatsoever, de krøller dig sammen hvis du sælger et produkt som interfacer til MSword Spellcheck

anwyay, good luck!

lUKKER!