Zufallszahlen, wer kann helfen?

[TOC]

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!