AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Quiz in Delphi

Ein Thema von chuck.9 · begonnen am 20. Jan 2009 · letzter Beitrag vom 20. Feb 2009
Thema geschlossen
Seite 1 von 4  1 23     Letzte » 
chuck.9

Registriert seit: 20. Jan 2009
18 Beiträge
 
Delphi 2005 Professional
 
#1

Quiz in Delphi

  Alt 20. Jan 2009, 19:34
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]
 
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.532 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Quiz in Delphi

  Alt 20. Jan 2009, 19:43
Hallo und Willkommen in der DP ,

Du hast feld als lokale Variable definiert, d.h. es ist außerhalb der procedure quizfragen überhaupt nicht sichtbar. Auch wenn es etwas übertrieben erscheint, würde ich mir evtl. eine Klasse für die Frage und die möglichen Antworten bauen, das macht das Ganze leichter wartbar.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
 
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: Quiz in Delphi

  Alt 20. Jan 2009, 19:44
Die Prozedur besitzt auch keinen Parameter
Markus Kinzler
 
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.532 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Quiz in Delphi

  Alt 20. Jan 2009, 19:48
Die würden auch nichts nützen, es müsste dann schon eine Funktion sein .
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
 
chuck.9

Registriert seit: 20. Jan 2009
18 Beiträge
 
Delphi 2005 Professional
 
#5

Re: Quiz in Delphi

  Alt 20. Jan 2009, 19:51
Als was müsste ich jez in die Unit reinschreiben, ich wollts halt mit Unit machen, weil wir das bald inner Klausur brauchen^^
...könnt mir nen Quelltextstück schreiben, wie ich das mit dem ausrufen der fragen aus dem array und unit mache?!
 
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: Quiz in Delphi

  Alt 20. Jan 2009, 19:54
function quizfragen( n, m: Integer): string;
Markus Kinzler
 
chuck.9

Registriert seit: 20. Jan 2009
18 Beiträge
 
Delphi 2005 Professional
 
#7

Re: Quiz in Delphi

  Alt 20. Jan 2009, 19:59
wunderbar...danke!


aber wie ändere ich es hier: panel1.caption:=quizfragen(feld[n,1]);
?
 
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.532 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Quiz in Delphi

  Alt 20. Jan 2009, 20:01
panel1.caption:=quizfragen(n,1); Kann man aber auch selbst drauf kommen
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
 
chuck.9

Registriert seit: 20. Jan 2009
18 Beiträge
 
Delphi 2005 Professional
 
#9

Re: Quiz in Delphi

  Alt 20. Jan 2009, 20:05
ja stimmt...
nur leider wir immer noch als Fehlermeldung: Zu viele Parameter angezeit!
 
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.532 Beiträge
 
Delphi 11 Alexandria
 
#10

Re: Quiz in Delphi

  Alt 20. Jan 2009, 20:06
Wie sieht denn "quizfragen" jetzt aus?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
 
Thema geschlossen
Seite 1 von 4  1 23     Letzte » 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz