Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Globale Daten (https://www.delphipraxis.net/89925-globale-daten.html)

Foxgrove 8. Apr 2007 18:14


Globale Daten
 
Hallo und frohe Ostern....

Komme von VBasic und möchte ein Frage-Antwort-Testspiel programmieren.
Also, ziemlich aufwendig habe ich in 3 parallelen Listen (Vektoren) den
Namen, das Geburtsjahr und das Sterbejahr von 444 Personen
eingetrippt.

z.B.: mWer[332]:='Goethe von Wolfgang';
mVon[332]:='1749';
mBis[332]:='1823'; also 3 Daten pro Person und das mehr als 400 mal ...

Dadurch erspare ich mir das Handling mit Dateien auf Disketten und Festplatte.

Ich möchte nun mit einem Klick auf einen Befehlsschalter NÄCHSTE RUNDE...
aus dieser Menge 5 zufällige Personen auswählen und in einer ListBox ausgeben.
Ohne die Jahreszahlen. Es werden nur die beiden Zahlen eines Zufälligen dieser
5 Personen eingeblendet..
Bis dahin funktioniert das.

A b e r ... nun muss der Nutzer des Programms eingeben, welcher der 5 diese
Person ist, und dies soll dann mit richtig oder falsch kommentiert werden.
Also aus einem EditFeld heraus bestätigt per Mausklick.

Am Ende soll dann eine Gesamtrechnung erfolgen mit einer Quasi-Schulnote.
z.B. Ihr Leistungsvolumen war: 3,5 oder ähnlich.

Aber, bei jedem weiteren Befehlsschalter oder EditFeld sind die Daten
"wieder weg".
Müsste man also irgendwie so in das Programm einbringen, dass sie immer von
allen Prozeduren erreichbar sind.
Aber, wie und wo muss ich meine Quasi-Konstanten in den 3 Vektoren speichern?

Gruß Foxgrove

mkinzler 8. Apr 2007 22:41

Re: Globale Daten
 
Ich würde pro Person einen Record verwenden.
Den Array mußt du dann im allgemeine Var-Teil deklarieren


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:35 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz