Hi!
Du könntest folgendes mal versuchen:
Delphi-Quellcode:
{
Diese Methode wird aufgerufen wenn eine Zelle in StringGrid1 angecklickt wird.
}
procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer;
var CanSelect: Boolean);
Var
Number: Integer;
begin
// Berechne aus Col (Spalte) und Row (Zeile) die gesuchte Zahl
Number:=Row*4+Col+1;
// Wandle diese Zahl in einen String und schreibe sie in Stringrid1
StringGrid1.Cells[Col, Row]:=IntToStr(Number);
// Würfel nun Zufallszahlen bis die Zahl gefunden wurde
// und schreibe die Anzahl der Versuche in StringGrid 2
StringGrid2.Cells[Col, Row]:=IntToStr(GetRandomNumber(Number, 1, 16));
end;
Vergesse aber bitte nicht, zum Beispiel in OnFormCreate, den Randomize-Befehl aufzurufen.
Grüße von TOC!