[Delphi] Konrolstruktur

[krumme]

servus,

ich hab ein Problem mit einer Kontrolstruktur, und finde den fehler einfach nicht:lol:

hier ist der code:

      if edit1.text  = englisch.Strings[NR] then

      showmessage('   richtig   ');
      randomize ;
      Nr := random(german.count);
      panel1.caption := german.Strings[NR]

      else
      showmessage('Flasch richtig wäre ' + richtig)
      end

es ist sicher irgend wo ein einfacher fehler aber solche finde ich einfach nicht:lol:

mfg krumme

 

[Web_spider]

du hast die begins und ends vergessen^^

  if edit1.text  = englisch.Strings[NR] then
      begin
      showmessage('   richtig   ');
      randomize ;
      Nr := random(german.count);
      panel1.caption := german.Strings[NR]
      end
      else
      begin
      showmessage('Flasch richtig wäre ' + richtig)
      end;

So müsste es zumindest bei Delphi 5 gehen^^ wichtig ist das bei dem end vor dem else kein ";" hindarf.

MfG

Richard

 

[krumme]

das selbe wieder:)

//überpfüft die Option
if radioButton1.Checked then
begin

//überprüfen ob eingabe bei edit1 richtig ist
   richtig := englisch.Strings[NR];
      if edit1.text  = englisch.Strings[NR] then
      begin
      showmessage('   richtig   ');
      randomize ;
      Nr := random(german.count);
      panel1.caption := german.Strings[NR]
      end
      else
      begin
      showmessage('Flasch richtig wäre ' + richtig)
      end
end
else
      begin
      showmessage('   richtig   ');
      randomize ;
      Nr := random(german.count);
      panel1.caption := englisch.Strings[NR]
      end
      else
      begin
      showmessage('Flasch richtig wäre ' + german.Strings[NR])
      end;
      end;

Komm wieder nicht auf den Fehler

 

[N43]

Hallo,

also ich sehe auf den ersten Blick keinen Fehler. Schreib doch mal was passieren sollte und was stattdessen passiert.


N43