Hallo,

Also meine Frage ist:

ich habe ein

markieren

Delphi-Quellcode:

 
zufall: array[1..100] of integer;
zwischen: array[1..50] of integer;

Nun Fülle ich das array zwischen mit den Zahlen 1 - 50 .
Diese Zahlen sollen dann in zufälliger Reihenfolge in das array Zufall 2x verteilt werden.

Also so, dass das array zufall die Zahlen von 1 - 50 doppelt beinhaltet aber in komplett zufälliger Reihenfolge.

Ich bin im Moment komplett überfragt ^^ .. vielleicht kann mir jmd. helfen.
Danke

P.S. Sehr kompliziert beschrieben...

1, Fülle eine Stringlist 2 mal mit zahlen zwischen 1-50
2, Nimm jeweils aus der Stringlist einen Eintrag an einer beliebigen Stelle und lösche diesen Eintrag.

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 ...

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:

zusammenfalten · markieren

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;