Zahlen zufällig in array verteilen ..

[Bernhard Geyer]

Zitat von rhaz:

hmm .. deine idee ist gut .. jedoch wie kann ich die zeilen ansprechen und dannach löschen ..
Bin noch anfänger .. vielleicht hättest du mir ein kleines Beispiel ...

Kein kompletter und getesteter Code:

Delphi-Quellcode:

StrList := TStringList.Create
for i := 1 to 50 do
begin
  for j := 1 to 2 do
    StrList.Add(IntToStr(i));
end;

while StrList.Count > 0 do
begin
  iPos := Random(StrList.Count);
  NextElement := StrList[iPos];    
  StrList.Delete(iPos);
end;