brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

[neuronet]

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 definierst Du das Array ja neu, anstatt es zu übernehmen, demnach ist es ja leer.

Wenn dann müsste es eher so aussehen:

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject); 
var n,i:integer; 
    h:array[0..10000] of integer; 
begin 
  n:=strtoint(edit1.Text); 
  // hier die Zahlen aus zufall in h einlesen
  for i:=1 to zufall.count do
    h[i]:=strtoint(zufall.items[i]);
  // nun hast Du Deine Zufallszahlen in h und kannst damit weiterarbeiten
  minimumsuche(n,h); 
  for i:=1 to n do 
  begin 
    sortiert.Items.Add(inttostr(h[i])); 
  end; 
end;