Schleifen

[Ultimator]

Delphi-Quellcode:

Ranomize;
for i := 0 to 4 do
  begin  
    t:= random(5)+1; 
    t2:= random(5)+1; 
    stringgrid1.objects[t2,t]:=pointer(1); 
  end;

So?
Aja, Randomize nur einmal aufrufen. Evtl. im FormCreate