hmmm, ver steh ich nicht ganz...
Also zuerst hatte ich nur eine Datasource und TTable Komponente!
TDatasourse
DataSet: tquizfragen
Name: DataSource_quizfragen
TTable
DatabaseName: quizfragen
Name: tquizfragen
TableName: quizfragen
Jetzt sagt ihr, ich soll meine 3 Tabellen zu einer komprimieren, sprich alle Fragen da rein schreiben und diese mit einer weiteren Spalte "Schwierigkeitsgrad" erweitern. 1 - 3 sind dann die jeweiligen Inhalte für den Schwierigkeitsgrad.
Desweiteren habt ihr gesagt ich soll anstatt einer TTable-Komponente eine TQuery-Komponente, also hab ich diese auch entfernt.
Jetzt "TQuery"
DatabaseName: quizfragen
DataSource: DataSource_quizfragen
Name: Query_quizfragen
Aber was nun!? Durch diese Veränderung findet meine TDataSource Komponente kein DataSet mehr, und somit wird keine Frage sowie Antwort mehr geholt.
So sehen meine jeweiligen Antwortlabel aus, die man klicken kann, davon habe ich 4 nur jeweil einem anderen Inhalt (L1-L4)
Delphi-Quellcode:
procedure TForm1.DBText2Click(Sender: TObject);
begin
if tquizfragen.FieldByName('L2').AsInteger = 1 then begin
tquizfragen.first;
tquizfragen.moveby(random(tquizfragen.RecordCount));
Stufen; // Führt die Prozedur "Stufen" aus, zu finden in
// Zeile 88.
end
else
Form4.Show;
end;
Außerdem habe ich hier noch die Prozedur Stufen die meine Labels nach jeder richtig beantworteten Frage hochzählen soll und in die entsprechende Farbe ~ rot, setzen soll.
Delphi-Quellcode:
procedure Stufen;
begin
count:= count +1;
with Form1 do begin
case count of
1: begin
Lb_Stufe1.Font.color := clred;
Lb_Stufe15.Font.color := clWhite;
end;
2: begin
Lb_Stufe2.Font.color := clred;
Lb_Stufe1.Font.color := clWhite;
end;
3: begin
Lb_Stufe3.Font.color := clred;
Lb_Stufe2.Font.color := clWhite;
end;
4: begin
Lb_Stufe4.Font.color := clred;
Lb_Stufe3.Font.color := clWhite;
end;
5: begin
Lb_Stufe5.Font.color := clred;
Lb_Stufe4.Font.color := clWhite;
end;
6: begin
Lb_Stufe6.Font.color := clred;
Lb_Stufe5.Font.color := clWhite;
end;
[...] bis 15
end;
end;
end;