Quiz Antworten auf Buttons anzeigen

[mylow]

Zitat von cookie22:

if Frage[1]=true then tausch das mal besser gegen if Frage[1] then aus. Gewöhn dir das mit = True und False gar nicht erst an.

Dann wird mir nur gesagt, dass der Ausdruckstyp boolean sein muss :/

Code:

 //Sucht zufällig eine Frage aus dem Bereich Musik aus.

 procedure MusikFrageAussuchen   ;
  begin
   r:=0;
   randomize;
   r:=random(5)+1;
    Frage[1]:='In welchem Jahr ist Beethoven gestorben?';
    Frage[2]:='Wie viele Sätze hat eine Sinfonie?';
    Frage[3]:='Von wann bis wann ging die Barockzeit?';
    Frage[4]:='Wer war kein berühmter Komponist der Wiener Klassik?';
    Frage[5]:='Wie nennt man das Instrument "Geige" noch?';
  end;

//Zeigt die Musik-Antworten auf den Buttons an

 procedure MusikAntworten;
 begin
    if Frage[1] then
   Form2.Button1.Caption:=Antwort[1]:='a) 1824';
   Form2.Button2.Caption:=Antwort[2]:='b) 1825';
   Form2.Button3.Caption:=Antwort[3]:='c) 1826';
   Form2.Button4.Caption:=Antwort[4]:='d) 1827';