Hallöchen, ich bins wieder, falls jemand meinen letzten Beitrag schon kennt.
Ich muss am 17.3. mein Projekt in der Schule abgeben und fühle mich langsam gestresst.. hänge an einen Knackpunkt.
Wenn ich den habe, dann bin ich fast fertig. Hoffe auf eure Hilfe..
Bevor Fragen kommen, JA i hab ich schon oben deklariert als integer..
Mein Ziel ist es, dass die Fragen aus der Datenbank ausgelesen werden
Die Frage erscheint im Caption Feld von der Radio Group und die Antwortmöglichkeiten in den RadioButtons..
Nun soll beim Click auf 'nächste Frage' die nächste kommen, aber das passiert nicht..
es kommt keine Fehler meldung und das Programm läuft auch.. nur kommt halt keine neue Frage/bzw Antworten
Das einzige derzeit ist, dass die erste Frage zwar erscheint, aber die Antwortmöglichkeiten von einer anderen Frage stammen..
Programmieren liegt mir einfach nicht..
Ein Bild zur Vorstellung hänge ich wieder mit an!
hier der Quelltext:
Delphi-Quellcode:
procedure TFormle.ButtonnextClick(Sender: TObject);
var query:ANSIstring; i:integer;
begin
if lb.ItemIndex >=0
then
begin
rg.Visible:=true;
Datamodule1.ADOQuery6.SQL.Clear;
Datamodule1.ADOQuery7.SQL.Clear;
Datamodule1.ADOQuery6.SQL.Text:='
SELECT Frage FROM Fragen WHERE Fach = ' +#39+lb.Items.Strings[lb.ItemIndex]+#39 +
'
AND Schwierigkeit="1";';
Datamodule1.ADOQuery6.Open;
Datamodule1.ADOQuery7.SQL.Text:= '
SELECT L1, L2, L3 FROM Fragen WHERE Fach = ' +#39+lb.Items.Strings[lb.ItemIndex]+#39 +
'
AND Schwierigkeit="1";';
Datamodule1.ADOQuery7.Open;
for i:=0
to 10
do
while not (Datamodule1.ADOQuery6.Eof)
and (Datamodule1.ADOQuery7.Eof)
do
Datamodule1.ADOQuery6.Next;
Datamodule1.ADOQuery7.Next;
//Frage in "Titel"
rg.Caption:= Datamodule1.ADOQuery6.Fields[0].AsString;
//Antworten in Radiobuttons
rg.Items.Clear;
rg.Items.Add(Datamodule1.ADOQuery7.Fields[0].AsString);
rg.Items.Add(Datamodule1.ADOQuery7.Fields[1].AsString);
rg.Items.Add(Datamodule1.ADOQuery7.Fields[2].AsString);
i:=+1;
end else
begin
application.MessageBox('
Auswahlfehler!','
Fehler');
end;
end;