Rechtschreibprüfung

[Klaus01]

Zitat von foerster7892:

@Klaus

Danke sieht interessant aus aber sehr kompliziert!

sieht nicht nur so aus, ist auch interessant.
.. und lernen kann man dabei auch etwas.

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject); 
begin 
  // Laenge wird hier nirgendwo initialisiert
  // nach dem ersten Durchlauf hat es einen Wert, der größer ist als
  // LaengeS
  richtig := 0; 
  Beginn := 0; 
  Ende := 0; 
  Eingabe := Edit1.Text; 
  LaengeS:=length(Eingabe); 
  repeat 
    Fehler := Rechtschreibung(Eingabe); 
  until (LaengeS=Laenge);  // hier nicht auf gleichheit prüfen
  if richtig >= 1 then 
  Showmessage('Diese Wörter haben sie falsch geschrieben: ' + Fehler) 
  else 
  Showmessage('Alles richtig'); 
end;

Ich würde schon das Design ändern, wie taaktak bereits geschrieben hat, und mher auf
lokale Variablen setzen.

Grüße
Klaus