So ich habe es nun wie folgt gemacht:
Delphi-Quellcode:
procedure TForm1.NextButtonClick(Sender: TObject);
var x:integer;
begin
x:=0;
x:=random(StringGrid1.rowcount-1);
Label1.Caption:=IntToStr(x);
VokabelLabel.Caption:=StringGrid1.cells[0,StrToInt(Label1.Caption)];
end;
und entsprechend bei der abfrage (Button):
procedure TForm1.EnterButtonClick(Sender: TObject);
begin
VokEingabeEdit.Text=StringGrid1.cells[1,StrToInt(Label1.Caption)] end;
Zu sagen ist noch: Label1 ist Visible:=false, sprich invisible!
Naja jetzt habe ich es hinbekommen, dass die Abfrage richtig beantwortet wird, doch dann ist mir aufgefallen, dass bei Random, nicht alle Zellen drankommen, nur ein paar. Wie könnte ich denn alle abfragen lassen? Vielleicht mit nem Timer immer neue Werte erstellen und dann random?