Quiz Antworten auf Buttons anzeigen

[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.

[DeddyH]

Wenn Dir Records nicht zusagen, kannst Du Dir auch eine Klasse bauen. Oder die Frage samt aller Antworten in einen String schreiben (mit einem Trennzeichen) und an diesem Trennzeichen wieder zerlegen. Oder eine TStringlist verwenden. Oder eine Datenbank. Such Dir was aus, ich würde immer noch die Records verwenden, das ist sicher und mit geringem Aufwand realisiert.

[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';

[DeddyH]

Was willst Du mit der Abfrage eigentlich bezwecken?

[mylow]

Ich hab mal ein bisschen mehr Quelltext oben eingefügt

[DeddyH]

Das bringt aber auch nicht mehr Klarheit. Müsstest Du nicht die mysteriöse Variable r abfragen?

[mylow]

Ahhh ja okay, ich glaub ich hab's, danke

[DeddyH]

Wir sind gespannt

[mylow]

Da das vorige ja so super geklappt hat, hab ich noch ne ähnliche Frage.
Und zwar möchte ich jetzt, dass entweder "Richtig" oder "Falsch" angezeigt wird, wenn der entsprechende Antwortbutton geklickt wird.
Allerdings funktioniert die if Bedingung mal wieder nicht :/
(ich hab damit aber auch Probleme XD)

Delphi-Quellcode:

 if Form2.Button4.Click then ShowMessage('RICHTIG')
     else ShowMessage('FALSCH')

Mir wird wieder angezeigt, "Ausdruckstyp muss Boolean sein" ?

[DeddyH]

Delphi-Quellcode:

if RichtigeAntwort then
  ShowMessage('Richtig')
else
  ShowMessage('Falsch');

Die Boolean-Funktion RichtigeAntwort musst Du natürlich noch schreiben.