Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Quizprogramm für besser Noten (https://www.delphipraxis.net/5194-quizprogramm-fuer-besser-noten.html)

Uncle Cracker 27. Mai 2003 13:37


Quizprogramm für besser Noten
 
Da ich gerade zwei fünfen in GEO bekommen habe :| und mir meine Lehrerin mitgeteielt hat, dass ich in der nächsten und letzten GEO-Arbeit höchstens eine zwei schreiben darf, würde ich gern ein Programm schreiben, wo ich selbst Fragen machen.

Dass heisst das ich zum Beispiel Fragen aus einer Ini-Datei laden möchte, die ich zuvor selbst erstellt habe. Das laden ist ja nicht das Problem, aber die Fragen der Ini-Datei soll immer durch einander gestellt werden.

Beispiel der Ini-Datei:
Code:
[Frage1]
Frage="In welcher Höhe liegt das Tiefland?"
a="0m-200m"
b="200m-500m"
c="600m-1000m"
d="1000m-3000m"
richtig=a

[Frage2]
Frage="Nenne ein Beispiel für ein Tiefland"
a="Harz"
b="Thüringer Wald"
c="Norddeutsches Tiefland"
d="Erzgebirge"
richtig=c

...
Nun soll Frage 1 nicht immer zuerst kommen!
Wie kann man das machen?

Vielleicht hatte ja mal jemand das selbe Problem und kann mir dabei helfen?

Danke UC

RomanK 27. Mai 2003 13:39

Hoi,
Random -> Hilfe

CalganX 27. Mai 2003 13:40

Hi,
du könntest dir eine Sektion "general" erstellen, in der auch drin steht, wieviele Frage es gibt, dann nimmst du dir die random-Funktion und nimmst eine Frage aus der Sektion "Frage" + randomZahl.

Chris

Stanlay Hanks 27. Mai 2003 13:43

Das müsstest du mit Random angeben.
Zuerst liest du alle Sections in eine StringList oder so was ein, und ermittelst mit Count, wie viele Fragen es sind.
Dann liest du nach dem Zufallsprinzip eine Section aus:

Delphi-Quellcode:
var Ini : TIniFile;
begin
Ini := TIniFile.create('C:\Fragen.ini');
Try
Edit1.text := Ini.ReadString('Frage'+IntToStr(Random(a),'Frage','Unbekannt'); //a = Anzahl der Fragen in der Ini
finally
FreeAndNil(Ini);
end;
Müsste so stimmen, hab ich aber nicht getestet.
Man liest sich, Stanlay

Daniel B 27. Mai 2003 19:59

Hallo,

ich habe den Thread nach Delphi-Language verschoben. Die Sparte Programmieren allgemein ist nur für andere Programmiersprachen da!

Grüsse, Daniel :hi:


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:35 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