Quiz erstellen

[Christian Seehase]

Moin Detlef,

Du wirst in jedem Falle eine Schleife über die 15 Positionen benötigen, ausser Du möchtest das Einlesen für alle 15 von in einzelnen Zeilen Codieren. Das ginge natürlich auch, würde aber wohl kaum jemand machen.

Delphi-Quellcode:

var 
 aqQuiz   : array [1..15] of TcsQuiz;
 i        : integer;
 j        : integer;
 sSection : string;

begin
  for i := 1 to 15 do
  begin
    sSection := 'Frage'+IntToStr(i);
    aqQuiz[i].sQuestion := iniQuiz.ReadString(sSection,'Frage','');
    for j := 1 to 4 do
    begin
      aqQuiz[i].sAnswer[j] := iniQuiz.ReadString(sSection,'Antwort'+IntToStr(j),'');
    end;
    aqQuiz[i].iCorrect := iniQuiz.ReadInteger(sSection,'Korrekt',0);
  end;
end;

Das ist jetzt nur ein Codefragment, wie man dann die Daten einlesen kann. Da für jede Position die gleiche Section benötigt wird, habe ich die mal in einer Variable zusammengefasst.

Sollten da noch Fehler drin sein:
Ich hab's hier direkt reingetippt.