Hi! Ich habe ein kleines Problem. Wenn ich ein Feld sortieren will, erscheint in der sortierten Menge am Anfang einfach eine 0 !
Kann mir jemand (sogar für mich verständlich) das mal erklären?
Ich habe hier jetzt mal (für den Fall) auch die Prozedur, um das Feld aufzustellen.
Danke im Voraus!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
listbox1.clear;
for anz:=1
to 5
do begin
a[anz]:=round(random*1000)/100;
listbox1.Items.Add(floattostr(a[anz]));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,j, pos: integer;
var hilf: real;
begin
for i:= 1
to anz
do begin
pos:=i;
for j:= i+1
to anz
do begin
if a[j]<a[i]
then pos:=j;
hilf:=a[pos];
a[pos]:= a[i];
a[i]:=hilf;
end;
end;
listbox1.clear;
for i:=1
to anz
do listbox1.Items.Add(floattostr(a[i]));
end;
Noch mal danke!