Hab das nunmal mit dem Array versucht, nur das funktioniert nich wie ich denke. Dachte der Array ist dann sortiert, und ich kann mir einzelne Elemente rauspicken die mir dann geordnet erscheinen aber macht er nicht. Wo ist der fehler?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var mya: array [1..4] of real;
begin
mya[1]:=strtofloat(edit1.Text);
mya[2]:=strtofloat(edit2.Text);
mya[3]:=strtofloat(edit3.Text);
mya[4]:=strtofloat(edit4.Text);
Sortiere(mya);//Sortierung starten
edit5.Text:=floattostr(mya[4]);
edit6.Text:=floattostr(mya[3]);
edit7.Text:=floattostr(mya[2]);
edit8.Text:=floattostr(mya[1]);
end;
end.
aus 7 3 10 6
wird 6 6 3 3
aus 1 2 3 4
wird 4 3 2 1 <--- da dacht ich es klappt aber naja das beispiel darüber sagt das da was verkehrt läuft