tstringgrid, randomize,

[danku]

der sachverhalt ist folgende:
eine stringgrid soll mit 25.000Einträgen gefüllt werden.
diese werte sollen in dezimalschreibweise, zufällig in der 1.spalte der stringgrid verteilt werden.
in der 2.spalte soll aber die dazugehörige binäre darstellung vorhanden sein.

Delphi-Quellcode:

for i:= 0 to sgTab.rowcount-1 do
begin
  for a:=1 to menge do     // const menge = 25000
  begin
     //1.Spalte
       sgTab.Cells[0,1+random(i)] := IntToStr((a));
     //2.Spalte
        sgTab.cells[1,1+i] := objekt.DezimalToBinaer(i);
  end;
end;