Forum: Datenbanken
Delphi
by Klaus01,
11. Mär 2020
.. nimmst eine Variable (Form private) setzt diese pro Knopfdruck um eins höher.
Den Stand der Variable musst Du dann im "nächste Frage" Knopf abfragen und etnsprechend reagieren.
Grüße
Klaus
Forum: Datenbanken
Delphi
by Klaus01,
10. Mär 2020
so das ganze auf zwei Buttons verteilt.
procedure TFormle.ButtonstartClick(Sender: TObject);
begin
if lb.ItemIndex >= 0 then
begin
rg.Visible:=true;
Datamodule1.ADOQuery6.SQL.Clear;
Datamodule1.ADOQuery6.SQL.Text:='SELECT Frage, L1, L2, L3 FROM Fragen WHERE Fach = ' +#39+lb.Items.Strings+#39 +
' AND Schwierigkeit="1";';
...
Forum: Datenbanken
Delphi
by Klaus01,
10. Mär 2020
Ähm welche Schleife.
Ich sehe keine in der ButtonNext Methode.
Die Methode ist aus dem Projekt des TE.
Es ist richtig, dass bei jedem click die Datensätze neu eingelesen werden.
Der erste wird angezeigt.
AdoQuery6.Next hat keine Auswirkungen, da die Routinegleich danach verlassen wird.
Ich habe auch nicht geschrieben, dass meine Korrekturen das ganze Problem lösen soll.
Forum: Datenbanken
Delphi
by Klaus01,
10. Mär 2020
Guten Morgen,
procedure TFormle.ButtonnextClick(Sender: TObject);
var
rb: TRadioButton;
begin
if lb.ItemIndex >=0 then
begin
rg.Visible:=true;
Datamodule1.ADOQuery6.SQL.Clear;