Grr... ich komm nur wage drauf ...
Mein Ansatz wäre sowas wie " maxi := high(werte[anzahl])" aber das scheint auch irgendwie Mist zu sein.
Die Prozedur, die die zufälligen werte ausgibt ist folgende:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
ListBox1.clear;
randomize;
zahl := random(Anzahl);
if combobox1.itemindex = 0 then
begin
Anzahl:=StrToInt(Edit1.Text);
randomize;
for i := 1 to Anzahl do
begin
werte[i] := random(Anzahl);
if i < 500 then
Listbox1.items.add(inttostr(werte[i]));
end;
end;
[...]
Ich steh da so richtig auf dem Schlauch grad..
aber danke für deine Geduld..
ich brüte weiter.
Gruß,
thechus