Zitat:
Das sagt mir ja schon mal, es handelt sich bei dir um statisches Array mit 10 Werten... (Ein Array fängt übrigens bei 0 : Array[0..9])
Das habe ich mal versucht anzupassen:
Delphi-Quellcode:
var sort : array[0..9]of integer;
procedure TForm1.btnsortClick(Sender: TObject);
begin
For i:= 0 to 9-1 Do
Begin
min:= i;
For j:= i+1 To 9 Do
If (sort[j] < sort[min]) Then
begin
h :=sort[j] ;
sort[j] :=sort[min];
sort[min]:=h ;
end;
end;
lblsort.caption := '';
For i := 0 To Length(sort) -1 do
begin
lblsort.caption := lblsort.caption + IntToStr(sort[i]) + ' ';
end;
end;
Das scheint jetzt zu funktionieren. Ausprobiert habe ich das, indem ich die Werte des Arrays erstmal im Quellcode definiert habe.
Zitat:
a) verhindern, dass du über 10 Werte hinausschießt
b) dass du mithilfe eines für a) notwendigen Zählers ERST alle Werte mit jedem Button-Click an dein Array übergibst
Man könnte den Button doch nach zehnmaligen betätigen deaktiviern, oder?
Wenn man anstatt integer --> real nimmt ginge es ja auch mit dezimalzahlen?
Trotzdem weiß ich nicht wie man die Werte übergibt. Nach jedem betätigen des Buttons würde dieser doch das gesammte Array überlaufen?