Nezabudni z toho Button2Click vymazat vsetky tie 'otazka:=1' . Dalej si este skontroluj tie podmienky if( otazka = 1). Vsade v kazdej podmienke mas to iste. Malo by to byt od 0 po 3
Příspěvky odeslané z IP adresy 188.112.108.–
No s toho co som pochopil ak som to teda pochopil tak pocitas tie otazky v premennej 'otazka'. Tuto premennu nastavis vzdy na nejaku hodnotu podla toho ktory test v poradi momentalne ma zobrazit. Teda Tam mi to nie je celkom jasne. Nemalo by to byt nahodou take ze tu premennu otazka by si mal na zaciatok nastavit na '0'. Trebarz v procedure TForm1.FormCreate . Potom vzdy pri stlaceni tlacitka prebehnut vsetky tie podmienky teda
if(otazka = 0) then bla bla bla
potom
if(otazka = 1) then bla bla bla
Potom do tej procedury Button1Click by som dal uplne posledny riadok dopisat 'otazka := otazka + 1';
Tym som chcel povedat asi to ze ked uz opravy ten test a vypise tu message tak nech uz na buduce po stlaceni toho dalsieho tlacitka vypisuje novy test. Napis ci som to dobre pochopil