Tips (1541)

Tip Rating (4):

{
  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.)

  Wenn Delphi 2+ verwendet wird, und die ActiveX Komponente TVSSpell installiert ist,
  ist es sehr einfach eine  Rechtschreibekorrektur für die TMemo Komponente zu
  erstellen.
  (Anmerkung: Die Komponente sollte nicht für RichEdit verwendet werden, da es dort
  Probleme mit der Textformatierung gibt.
}


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:

  Um eine Anwendung mit VisualSpeller zu vertreiben, müssen folgende Dateien
  mitgeliefert werden:
}

{
- VsSpell.HLP
- VSPELL32.OCX
- VSPELL32.DLL
- AMERICAN.VTD
- VSPELL.HLP
}