1:
2:
3:
4:
5:
6:
7:

Versuche:=2 
REPEAT form1.show 
UNTIL versuche:=2; 
IF versuche>2 then 
form1.close; 
IF versuche<=2 then 
showmessage('toll');                    

1:
2:
3:
4:
5:
6:
7:

Versuche:=0;
   IF edit1.text='a' THEN
   form2.show
   ELSE
   showmessage('falsch, noch ein Versuch');
   versuche:=versuche+1;
END;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

IF Antwort = richtig THEN
begin
  Versuche := 0;
  nächste Frage;
end ELSE
begin
  IF Versuche <3 THEN
  begin
    showmesage('leider Falsch....')
    Versuche := Versuche +1 ; //bzw. INC(Versuche)
  end ELSE
  begin
    showmessage('Game Over.....');
    Close; 
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

var
  Form1: TForm1;
  versuche: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  versuche:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
VAR antwort : STRING;
begin
  Antwort:=edit1.text;
  IF Antwort = 'a' THEN
  begin
    Versuche := 0;
    ShowMessage('Jetzt käme die nächste Frage');
  end ELSE
  begin
    IF Versuche <3 THEN
    begin
      showmessage('leider Falsch....');
      Versuche := Versuche +1 ; //bzw. INC(Versuche)
    end ELSE
    begin
      showmessage('Game Over.....');
      Close;
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button1Click(Sender: TObject); 

VAR antwort : STRING; 
       versuche:INTEGER;
begin 
  Antwort:=edit1.text; 
  IF Antwort = 'a' THEN 
  begin 
    Versuche := 0; 
    ShowMessage('Jetzt käme die nächste Frage'); 
  end ELSE 
  begin 
    IF Versuche <3 THEN 
    begin 
      showmessage('leider Falsch....'); 
      Versuche := Versuche +1 ; //bzw. INC(Versuche) 
    end ELSE 
    begin 
      showmessage('Game Over.....'); 
      Close; 
    end; 
  end; 
end;                    

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  versuche:=0; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

var
  Form1: TForm1;
   Versuche:Integer;
implementation

uses Frage2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Versuche:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var antwort: STRING;
begin
  Antwort:=edit1.text; 
  IF Antwort = 'a' THEN 
  begin
    Versuche := 0;
    Form2.show;
  end ELSE 
  begin 
    IF Versuche <1 THEN
    begin
      showmessage('leider Falsch....');
      Versuche := Versuche +1 ; //bzw. INC(Versuche)
    end ELSE

      IF Versuche >= 1 THEN
      BEGIN
      showmessage('Game Over.....');
      form1.close;
    end; 
  end;
end;


end.                    

1:

IF Versuche >= 1 THEN                    

1:
2:
3:
4:

TYPE TFrage = RECORD
                       Frage : STRING[200];
                       Antwort: Char;
                    END;                    

1:

VAR Frage : ARRAY OF TFrage;                    

1:

VAR Frage : ARRAY[0..19] OF TFrage;                    

1:

VAR nummer : INTEGER;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Versuche:=0; 
  //...
  //hier musst Du jetzt noch Dein Array füllen. Ich würde mir ein kleines
  //Programm schreiben, in das Du Frage und Antwort eingeben kannst,
  //und welches alles in eine Datei speichert, die dann hier gelesen wird.
  //...
  nummer:=0;
  Label_Frage.Caption:=Frage[nummer].Frage;
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var antwort: STRING; 
begin 
  Antwort:=edit1.text[1]; 
  IF Antwort =  Frage[nummer].Antwort THEN 
  begin 
    Versuche := 0; 
     inc(nummer);
     Label_Frage.Caption:=Frage[nummer].Frage;
  end ELSE 
  begin 
    IF Versuche <1 THEN 
    begin 
      showmessage('leider Falsch....'); 
      Versuche := Versuche +1 ; //bzw. INC(Versuche) 
    end ELSE 

      IF Versuche >= 1 THEN 
      BEGIN 
      showmessage('Game Over.....'); 
      form1.close; 
    end; 
  end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

VAR my_file : File of TFrage;
begin
  SetLength(Frage,0);   //Array 'Frage' soll am Anfang 0 Datensätze enthalten
  AssignFile(my_file,'jauch.dat'); //Weise der Datei den Dateinamen zu
  {$I-}           //Fehlermeldung "ausschalten"
  Reset(my_file); //Datei öffnen
  {$I+}           //Fehlermeldung "einschalten"
  IF IOResult=0 then
  begin //Wurde die Aktion korrekt ausgeführt?
    while not eof(my_file) do  //Solange das Ende der Datei nicht erreicht wurde...
    begin
      SetLength(frage,Length(frage)+1); //Ergänze das Array "Frage" um einen Datensatz
      Read(my_file,frage[High(frage)]); //Lese den gerade erzeugten Datensatz aus der Datei
    end;
    CloseFile(my_file); //Datei wieder schließen
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

VAR my_file : File of TFrage;
begin
  AssignFile(my_file,'jauch.dat'); //Weise der Datei den Dateinamen zu
  {$I-}           //Fehlermeldung "ausschalten"
  ReWrite(my_file); //Datei neu schreiben, ACHTUNG: bestehende Datei wird überschrieben!!!
  {$I+}           //Fehlermeldung "einschalten"
  IF IOResult=0 then
  begin //Wurde die Aktion korrekt ausgeführt?
    for i:=0 TO High(frage) DO //Vom ersten bis zum letzten Datensatz des Arrays 'Frage' ...
    Write(my_file,frage[i]);   //...schreibe den Datensatz in die Datei
    CloseFile(my_file); //Datei wieder schließen
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

VAR my_file : File of TFrage; 
begin 
  AssignFile(my_file,'jauch.dat'); //Weise der Datei den Dateinamen zu 
  {$I-}           //Fehlermeldung "ausschalten" 
  ReWrite(my_file); //Datei neu schreiben, ACHTUNG: bestehende Datei wird überschrieben!!! 
  {$I+}           //Fehlermeldung "einschalten" 
  IF IOResult=0 then 
  begin //Wurde die Aktion korrekt ausgeführt? 
    for i:=0 TO High(frage) DO //Vom ersten bis zum letzten Datensatz des Arrays 'Frage' ... 
    Write(my_file,frage[i]);   //...schreibe den Datensatz in die Datei 
    CloseFile(my_file); //Datei wieder schließen 
  end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var Nummer: Integer;

Type TFrage = Record
                         Frage : String;
                         Antwort : char;
         var Frage : Array[1..15] of TFrage;
For Frage:=1 to 15 do begin
      Frage[1].Frage:=.. and Frage[1].Antwort:= .. and  
      nummer = 1 ;// kann man jetzt Frage[1].Frage:=Label1..
         schreiben?............                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var Nummer: Integer; 

Type TFrage = Record 
                         Frage : String; 
                         Antwort : char; 
         var Frage : Array[1..15] of TFrage; 

For Frage:=1 to 15 do begin 
      Frage[1].Frage:=.. and Frage[1].Antwort:= .. and  
      nummer = 1 ;// kann man jetzt Frage[1].Frage:=Label1.. 
         schreiben?............                    

1:
2:

Frage[1].Frage:= // muss den labels die erste Frage/Antwort zugewiesen werden!
Frage[1].Antwort:=// muss der richtige buchstabe hinein!                    

1:

IF Antwort =  Frage[nummer].Antwort THEN                    

1:
2:
3:
4:
5:

nummer               Frage                         Antwort
----------------------------------------------------------
0                         Was ist ein Array?       a
1                         Was ist ein String?       b
2                         Was ist ein Integer?     c                    

1:
2:
3:
4:

TYPE TFrage = RECORD
                        Frage : String;
                        antwort : Char;
                      END;                    

1:
2:
3:
4:
5:

TYPE TFrage = RECORD
                         Frage : String;
                         a,b,c,d : String;
                         antwort : Char;
                      END;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.Button1Click(Sender: TObject); 
var antwort: STRING; 
begin 
  Antwort:=edit1.text[1]; 
  IF Antwort =  Frage[nummer].Antwort THEN 
  begin 
    Versuche := 0; 
     inc(nummer); 
     Label_Frage.Caption:=Frage[nummer].Frage;    
     with Frage[nummer] do //ERKLRÄRUNG IM POSTING
     begin    
       Label_a.Caption:=a; 
       Label_b.Caption:=b; 
       Label_c.Caption:=c;
       Label_d.Caption:=d; 
     end;
  end ELSE 
  begin 
    IF Versuche <1 THEN 
    begin 
      showmessage('leider Falsch....'); 
      Versuche := Versuche +1 ; //bzw. INC(Versuche) 
    end ELSE 

      IF Versuche >= 1 THEN 
      BEGIN 
      showmessage('Game Over.....'); 
      form1.close; 
    end; 
  end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

TYPE TFrage = RECORD 
                         Frage : String; 
                         a,b,c,d : String; 
                         antwort : Char; 
                      END; 

var Frage = array[0..15] of TFrage;

if nummer = 0 THEN
  TFrage[0].Frage:= 'Was ist ...';
  TFrage[0].a:='...';
  TFrage[0].b:='..';
  TFrage[0].c:='..';
  TFrage[0].d:='..';
  TFrage[0].antwort:=a;
if nummer = 1 THEN
 ........
// den Antworten a..d sind doch schon die Labels zugeordnet mit der with do anweisungen??                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

VAR my_file : File of TFrage; 
begin 
  SetLength(Frage,0);   //Array 'Frage' soll am Anfang 0 Datensätze enthalten 
  AssignFile(my_file,'jauch.dat'); //Weise der Datei den Dateinamen zu 
  {$I-}           //Fehlermeldung "ausschalten" 
  Reset(my_file); //Datei öffnen 
  {$I+}           //Fehlermeldung "einschalten" 
  IF IOResult=0 then 
  begin //Wurde die Aktion korrekt ausgeführt? 
    while not eof(my_file) do  //Solange das Ende der Datei nicht erreicht wurde... 
    begin 
      SetLength(frage,Length(frage)+1); //Ergänze das Array "Frage" um einen Datensatz 
      Read(my_file,frage[High(frage)]); //Lese den gerade erzeugten Datensatz aus der Datei 
    end; 
    CloseFile(my_file); //Datei wieder schließen 
  end; 
end;                    

1:

Label_Frage.Caption:=Frage[nummer].Frage;                    

1:

TFrage[0].Frage:= 'Was ist ...';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var Frage array[0..14] of TFrage; // global gespeichert


  TFrage[0].Frage:= 'Was ist ...'; 
  TFrage[0].a:='...'; 
  TFrage[0].b:='..'; 
  TFrage[0].c:='..'; 
  TFrage[0].d:='..'; 
  TFrage[0].antwort:=a; 
// in oncreate Prozedur

Label_Frage.Caption:=Frage[nummer].Frage; // in der buttonprozedur, mit den zwei versuchen verbunden                    

1:

TFrage[0].Frage:='...';                    

1:

Frage[0].Frage:='...';                    

1:

Frage[0].Antwort:=a;// er weiss nicht was a ist! muss es vielleicht 'a' heißen?                    

1:

Frage[nummer].Frage...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  Form1: TForm1;
  versuche, nummer : Integer;

procedure TForm1.Button1Click(Sender: TObject);
var antwort : String;
begin
  Antwort:= edit1.text[1];
  IF antwort = TFrage[nummer].Antwort THEN
  BEGIN
    Versuche := 0;
    INC (nummer);
    Label1.Caption:= Frage[nummer].Frage;
    with Frage[nummer] do
    BEGIN
      Label2.Caption:=a;
      Label3.Caption:=b;
      Label3.Caption:=c;
      Label4.Caption:=d;
    END;
  END ELSE..                    

1:
2:
3:

Frage[0].Frage:='...'; 
Frage[0].a:='::';
....