Как использовать проверку грамматики?

Previous  Top  Next

    
 

 

 

Code:

{

If you are using Delphi 2+ and have the ActiveX component TVSSpell, it is very

simple to add a spell checker to your TMemo applications.

(Note: Do not use this component with a Rich Edit application because of text

formatting problems.)

}

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if Memo1.Text = '' then Exit;

 

VSSpell1.CheckText := Memo1.Text;

if VSSpell1.ResultCode = 0 then

   Memo1.Text := VSSpell1.Text;

end;

 

 

{

To distribute a VisualSpeller application you have to include the following

files:

 

}

 

{

- VsSpell.HLP

- VSPELL32.OCX

- VSPELL32.DLL

- AMERICAN.VTD

- VSPELL.HLP

}

 

©Drkb::04466

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php