if-abfrage geht nicht :(

[Slimie]

hi leute,


hab ein kleines problem. ich sitz grade in informatik und bekomm sone blöde if-abfrage nicht hin der soll wenn das wort richtig ist, unten bei dem edit-feld edw2 einen dazu zählen... allerdings läuft das alles nicht! kann mir da einer weiter helfen was ich machen muss? also wenn ich auf den prüfen button klick soll wenn das wort richtig ist der zaehler2 um eins erhöht werden!

// asphyxia sagt: Die Klassendefinition ist unwichtig. ;)

procedure TForm1.FormCreate(Sender: TObject);
begin
deutsch[0] :='Farbe';
englisch[0] :='color';
deutsch[1] :='Überschrift';
englisch[1] :='caption';
deutsch[2] :='Hund';
englisch[2] :='dog';
deutsch[3] :='Katze';
englisch[3] :='cat';
deutsch[4] :='Fisch';
englisch[4] :='fish';
deutsch[5] :='Mensch';
englisch[5] :='people';
deutsch[6] :='Name';
englisch[6] :='name';
deutsch[7] :='Arm';
englisch[7] :='arm';
deutsch[8] :='Reich';
englisch[8] :='ritch';
deutsch[9] :='Auge';
englisch[9] :='eye';
deutsch[10] :='Schlüssel';
englisch[10] :='key';
deutsch[11] :='Stift';
englisch[11] :='pen';
deutsch[12] :='Tag';
englisch[12] :='day';
deutsch[13] :='Dichter';
englisch[13] :='poet';
deutsch[14] :='Kritiker';
englisch[14] :='critic';
deutsch[15] :='Kritik';
englisch[15] :='criticism';
deutsch[16] :='eine Kritik';
englisch[16] :='critique';
deutsch[17] :='Uboot';
englisch[17] :='submarine';
deutsch[18] :='Zaun';
englisch[18] :='fence';
randomize;
end;

procedure TForm1.btwClick(Sender: TObject);
var 
  i : integer ;
begin
  zaehler1:=zaehler1+1;
  edw1.text:=inttostr(zaehler1);
  edw2.text:=inttostr(zaehler2);
  i:=random(19);
  eddeu.Text:=deutsch[i]
end ;


procedure TForm1.btprClick(Sender: TObject);
var 
  i:integer;
begin
  for i:= 0 to 19 do
  begin 
    if eddeu.text=deutsch[i] then
      if edeng.text=englisch[i] then edfalschr.text := 'richtig'
      else edfalschr.text := 'falsch';
  end
  if eddeu.text=deutsch[i] then
    if edeng.text=englisch[i] then zaehler2:=zaehler2+1
    else zaehler2:=zaehler2;
  end

  edw1.text:=inttostr(zaehler1);
  edw2.text:=inttostr(zaehler2);

  end;

end

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  zaehler1:=0;
  zaehler2:=0;
  end;
end .

end.

danke!!! slimie

 

[Dario Linsky]

Kannst Du den Code vielleicht etwas einrücken? Irgendwie fällt mir das ziemlich schwer, jedes "end" einem "begin" zuzuordnen.