Létrehozása egy teszt a Delphi
Válaszlehetőségek (lista) jön létre a tételek tulajdonság (RadioGrouppri ez ki van jelölve)
A vizsgálat abban áll, például, 5 formák. Minden formában található kérdést, választ, nyomógombot (New-Formotkrytie új formája, a Shift + F12 közötti mozgás formák).
Az eljárás van írva a Next gombra. Az összes munka lesz egy peremennayai: integer; ez globális. Bemutatjuk azt a helyet, ahol:
i: integer; helyezni magukat
Leírás globális változó csak akkor jelentkezik egység1. teszt fejlesztő tudnia kell a helyes választ, mert ezt jelzi a programban.
Az eljárást a Tovább gombra:
Ha RadioGroup1.Itemindex = -1, akkor ShowMessage ( "Elfelejtette, hogy válaszoljon a kérdésre!)
Kezdeni, ha RadioGroup1.Itemindex = 2, akkor i: = i + 1;
Nyisson meg egy új forma (New Form) teszik ki a kérdés - válasz knopkaDalee:
Ha RadioGroup1.Itemindex = -1, akkor ShowMessage ( "Elfelejtette, hogy válaszoljon a kérdésre!)
Beginif RadioGroup1.Itemindex = 1, akkor i: = i + 1;
Kezdve a második modul (Unit2), adjuk hozzá a szót egység1 azon a helyen, ahol van egy átadása: Windows, Üzenetek, SysUtils, osztályok, grafika, vezérlők, Forms, párbeszédablakok,
A hasonló munkát a formában a 3. és 4..
5. Az űrlapon van egy kérdés, lehetséges válasz, majd a Befejezés, majd írj egy eljárást a gombot
Ha RadioGroup1.Itemindex = -1, akkor ShowMessage ( "Elfelejtette, hogy válaszoljon a kérdésre!)
Kezdeni, ha RadioGroup1.Itemindex = 3, akkor i: = i + 1;
0,1,2: ShowMessage (Megkaptad 2 ');
3: ShowMessage (Van 3 ');
4: ShowMessage (Van 4 ');
5: ShowMessage (Van 5 ');
Létrehoztunk egy teszt, nem az első alkalom a program futtatásához, egy ablak jelenik meg, ahol ki kell választania IGEN, az ablak jelenik meg, ahányszor voltak kommunikációs formák jön létre.
Az első forma felhasználható általános információk jelennek meg a vizsgálat, mint: