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;

[marabu]

Hi,

du hast zwar keine Frage gestellt, aber ich antworte einfach trotzdem. Die Zahlen würde ich in einer TList bereitstellen:

Delphi-Quellcode:

begin
  // ...
  with Numbers do
  begin
    // dimension
    Count := NUMCOUNT;  
    // initialize
    for i := 0 to Pred(Count) do
      Items[i] := Pointer(i); 
    // shuffle
    for i := 1 to Pred(Count) do
      // Exchange(Pred(i), Pred(i + Random(Count - i))); // nonsense
      Exchange(i, Random(i));   
  end;
  // ...
end;

Grüße vom marabu