stringgrid

[mkinzler]

Delphi-Quellcode:

for i := 1 to 100 do zahlen[i] := i;

for i := 1 to 50 do
begin
    z1 := Random(99) + 1;
    z2 := Random(99) + 1;
    h := zahlen[z1];
    zahlen[z1] := z2;
    zahlen[z1] := h;
end;