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;