Ungleiche Zufallszahlen erzeugen

-delphin- · Beiträge: 200

Hallo Forum, mein Problem ist relativ simpel, ich würde gerne Zufallszahlen erzeugen, die in einem Memo ausgegeben werden, jedoch muss jede verschieden sein, da sie später mit Bubblesort sortiert werden sollen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
var i, border: integer;
begin
  border := SpinEdit2.Value;
  Setlength(Zahlenfeld, border);
  randomize;
  Memo1.Clear;
  for i := 1 to SpinEdit1.Value do
  begin
    Memo1.Lines.Add(IntToStr(random(border)+1));
  end;
end;

Zahlenfeld ist mein dynamischer Array, mir fehlt nur noch eine Überprüfung, dass random(border)+1 noch nicht im Memo vertreten sein darf.

Thx 4 help

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Generieren von Zahlen zwischen 1- 49, ohne doppelte Zahlen

-delphin- · Beiträge: 200

das hilft mir irgendwie nicht wirklich, leider.. wenn ichs so mache wie dort, dann klappt es nicht!

starsurfer · Verfasst: Sa 17.09.05 17:24

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);  
var zahl:integer;  
    sl:tstringlist;  
begin  
randomize;  
sl:=tstringlist.Create;  
for zahl:=0 to 100 do  
  begin  
  sl.Insert(random(sl.count),inttostr(zahl));  
  end;  
memo1.lines:=sl;  
end;

erzeugt 0..100 und bringt die durcheinander

so?

_________________
GEIZ IST GEIL! - Ihr Sozialamt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme