Wahrscheinlich ist es noch niemanden aufgefallen:
Delphi-Quellcode:
Datamodule1.ADOQuery6.First;
while not Datamodule1.ADOQuery6.Eof do
begin
Datamodule1.ADOQuery6.Next;
//Frage in "Titel"
rg.Caption:= Datamodule1.ADOQuery6.Fields[0].AsString;
//Antworten in Radiobuttons
rg.Items.Clear;
rg.Items.Add(Datamodule1.ADOQuery6.Fields[0].AsString);
rg.Items.Add(Datamodule1.ADOQuery6.Fields[1].AsString);
rg.Items.Add(Datamodule1.ADOQuery6.Fields[2].AsString);
end;
So wird immer die zweite Antwort verarbeitet. Wenn es nur eine Gibt, macht es bumm!
darum:
Delphi-Quellcode:
Datamodule1.ADOQuery6.First;
while not Datamodule1.ADOQuery6.Eof do
begin
//Frage in "Titel"
rg.Caption:= Datamodule1.ADOQuery6.Fields[0].AsString;
//Antworten in Radiobuttons
rg.Items.Clear;
rg.Items.Add(Datamodule1.ADOQuery6.Fields[0].AsString);
rg.Items.Add(Datamodule1.ADOQuery6.Fields[1].AsString);
rg.Items.Add(Datamodule1.ADOQuery6.Fields[2].AsString);
Datamodule1.ADOQuery6.Next;{---- weiter zum nächsten Datensatz oder EOF}
end;
Und da auch einmal nichts zurück kommen könnte:
Delphi-Quellcode:
Datamodule1.ADOQuery6.First;
if Datamodule1.ADOQuery6.Eof then
begin
showmessage('Es wurden keine daten gefunden');
end
else {---- es wurden Daten geliefert}
repeat
//Frage in "Titel"
rg.Caption:= Datamodule1.ADOQuery6.Fields[0].AsString;
//Antworten in Radiobuttons
rg.Items.Clear;
rg.Items.Add(Datamodule1.ADOQuery6.Fields[0].AsString);
rg.Items.Add(Datamodule1.ADOQuery6.Fields[1].AsString);
rg.Items.Add(Datamodule1.ADOQuery6.Fields[2].AsString);
Datamodule1.ADOQuery6.Next;{---- weiter zum nächsten Datensatz oder EOF}
until Datamodule1.ADOQuery6.Eof;
Das gefällt mir besser, aber das ist Geschmackssache.
Gruß
K-H
P.S.
Damals als ich noch in die Schule ging gab es Lehrer, die den falschen Beruf gewählt hatten und Schüler die selbst mit einfachen logischen Zusammenhängen überfordert waren. Ich vermute heute ist es nicht wesentlich anders, darum sollten wir uns jeden Kommentar zur Berufung einer Lehrperson oder eines Schülers verkneifen.