Hi Leute,
also ich will ein Quiz in Delphi machen, un zwar mit einen Mehrdimensionalen Array, wo: Frage, 4 Antwortmöglichkeiten und die richtige Frage!
Quasi
feld: array [1..60,1..6] of String;
--> Da es 60 Fragen sind 1..60 un da es 6 verschiedene zeilen sind, weil Frage, Antwortmöglichkeiten und die richtige Frage!
Nun nutze ich auch module also Units, in den die Arrays sind!
Im Projekt selber werden 3 verschieden Units verwendet:
uses Fragen1, Antworten, richtige_Antworten;
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('Verloren, versuchs noch einmal.');
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
panel3.Caption:='0 €';
panel2.caption:='Nr. 1';
n:=random(3)+1;
panel1.caption:=quizfragen(feld[n,1]);
radiobutton1.caption:=quizant(feld[2]);
radiobutton2.Caption:=quizant(feld[n,3]);
radiobutton3.caption:=quizant(feld[n,4]);
radiobutton4.Caption:=quizant(feld[n,5]);
if radiobutton2.checked then showmessage('Richtig');
end;
Das ist mein Code für die erste Frage, man kann erkennen das ich für die erste Frage mittels Randomize eine von 3 Fragen aussuche, die im Array bzw
Unit Fragen enthalten sind!
panel1.caption:=quizfragen(feld[n]);
--> Hier im Panel die Frage angezeigt werden, und zwar soll sich das Programm die Frage aus der
Unit und dem Feld holen..
die
Unit Fragen sieht so aus:
Delphi-Quellcode:
procedure quizfragen;
var feld: array [1..60,1..6] of String;
begin
feld[1,1]:='Wie heißt der höchste Berg Deutschlands?';
feld[2,1]:='Wie viele Beine hat eine Spinne?';
feld[3,1]:='Was sind Pumps?';
also sind diese 3 Fragen die 3 möglichen die ich mit Randomize aussuchen will!
Nun das Problem, das Programm holt sich leider keine Frage aus der
Unit! Es wird die Fehlermedlung:
[Fehler] Unit1.pas(67): E2034 Zu viele Parameter an der Stelle
panel1.caption:=quizfragen(feld[n,1]);
angezeigt, nur leider weiß ich nicht was ich Falsch gemacht habe!?!?
Bitte helft mir, danke!
Und ist die überhaupt möglich eine Frage aus einer
Unit und dem darin enthaltenen Array zu holen?
Danke für die Antwort!
LG Oli
[edit=mkinzler]Delphi-Tags statt bold Mfg, mkinzler[/edit]