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.