Rechtschreibprüfung

[foerster7892]

Delphi-Quellcode:

const Worterbuch = 'C:\Users\user\Desktop\Wörterbuch.txt';

var
  Form4: TForm4;
  Zwablage :String;
  richtig :Integer;

implementation

{$R *.dfm}

function Falsch(Eingabe :string; Kontrolle :boolean; Ende, Anfang :integer):string;
var Wort, Woerter :string;
begin
  if Kontrolle=false then
  begin
    Wort := copy(Eingabe, Anfang, Ende);
    Woerter := Woerter + Wort + ', ';
    Falsch := Woerter;
    richtig := richtig + 1;
  end;
end;

function Kontrollf(Eingabe: string; Ende, Anfang :integer):boolean;
var Buch    :textfile;
    Wort    :string;
    richtig :integer;
begin
  richtig := 0;
  Zwablage := copy(Eingabe, Anfang, Ende-1);
  AssignFile(Buch, Worterbuch);
  reset(Buch);
  repeat
    readln(Buch, Wort);
    if Zwablage = Wort then
    richtig := richtig+1;
  until ((Zwablage = Wort) or (EOF(Buch)));
  if richtig = 1 then
  Kontrollf := true
  else
  Kontrollf := false;
end;

procedure Rechtschrp(var Rechtschreibung: string; Eingabe: string; LaengeS: integer; var Beginn, Ende, Laenge :integer);
var Anfang :integer;
    Kontrolle :boolean;
    Wort, Worter :string;
begin
  Anfang := Ende;
  repeat
    Beginn := Beginn + 1;
    Ende:= Ende + 1;
    Laenge := Laenge + 1;
    Zwablage := copy(Eingabe, Beginn, Ende);
  until ((Zwablage = ' ') or (Laenge=LaengeS));
  Kontrolle := Kontrollf(Eingabe, Anfang, Ende);
  Wort := Falsch(Eingabe, Kontrolle, Ende, Anfang);
  Worter := Worter + Wort;
  Rechtschreibung := Worter;
end;

procedure TForm4.Button1Click(Sender: TObject);
var Eingabe, Fehler :string;
    LaengeS, Beginn, Ende, Laenge, richtig :integer;
begin
  richtig := 0;
  Beginn := 0;
  Ende := 0;
  Eingabe := Edit1.Text;
  LaengeS:=length(Eingabe);
  repeat
    Rechtschrp(Fehler, Eingabe, LaengeS, Beginn, Ende, Laenge);
  until (LaengeS=Laenge);
  if richtig >= 1 then
  Showmessage('Diese Wörter haben sie falsch geschrieben: ' + Fehler)
  else
  Showmessage('Alles richtig');
end;

end.

so schauts aus die anderen oben bekomme ich nihct mehr weg

Das mit Laenge scheck ich nicht warum das größer wird als LaengeS