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