in einer Prozedur ziehe ich Zufallszahlen und weise diese den Feldern zu
Delphi-Quellcode:
procedure TForm1.prozufall(n:integer; var h:array of integer);
var i,z:integer;
begin
randomize;
for i:=1 to n do
begin
z:=random(100);
h[i]:=z;
end;
end;
procedure TForm1.Button13Click(Sender: TObject);
var n,i:integer;
h:array[0..10000] of integer;
begin
n:=strtoint(edit1.Text);
for i:=1 to n do
begin
prozufall(n,h);
zufall.Items.Add(inttostr(h[i]));
end;
end;
so und nun muss ja mit den elementen des Arrays gearbeitet werden
Delphi-Quellcode:
procedure TForm1.minimumsuche(n:integer; var h:array of integer);
var i,j,min,hilfsvar:integer;
begin
for i:=1 to n-1 do
begin
min:=1;
for j:=i+1 to n do
if (h[j]<min) then min:=j;
hilfsvar:=h[min];
h[min]:=h[i];
h[i]:=hilfsvar;
end;
end;
ich glaube hier liegt der fehler, weil ich nacher wenn ich das sortierte array in einer Listbox ausgeben will dann werden statt den geordneten Zahlen nur Nullen angezeigt.
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var n,i:integer;
h:array[0..10000] of integer;
begin
n:=strtoint(edit1.Text);
minimumsuche(n,h);
for i:=1 to n do
begin
sortiert.Items.Add(inttostr(h[i]));
end;
end;
^
^
So versuche ich das sortierte array anzeigen zu lassen aber wie gesagt kommen nur Nullen.
MFG Jacqybaby