Ok ich hab es jetzt geschnallt. Dankeschön.
Aber zwei Fragen zur Verbesserung noch.
Delphi-Quellcode:
var sort : array[0..9]of integer;
max, min, s : integer ;
procedure TForm1.FormCreate(Sender: TObject);
begin
max := High(sort);
min := low (sort);
s := 0 ;
btnsort.enabled :=false;
btnhinzu.enabled :=true;
end;
procedure TForm1.btnhinzuClick(Sender: TObject);
begin
sort[s]:= strtoint(edteingabe.caption);
if s = 0 then
lblunsort.caption:=lblunsort.caption + inttostr(sort[s])
else
if sort[s]<>0 then
lblunsort.caption:=lblunsort.caption + '; ' + inttostr(sort[s]);
if s >= max then
begin
btnsort.enabled:=true ;
btnhinzu.enabled:=false;
end;
s:=s + 1;
end;
procedure TForm1.btnsortClick(Sender: TObject);
var b, h : integer ;
begin
For min:= 0 to max-1 Do
Begin
For b:= min+1 To max Do
If (sort[b] < sort[min]) Then
begin
h :=sort[b] ;
sort[b] :=sort[min];
sort[min]:=h ;
end;
end;
For min := 0 To max do
begin
lblsort.caption := lblsort.caption + IntToStr(sort[min]) + '; ';
end;
end;
end.
Wie die Kenner unter euch wohl feststellen können, erscheint durch die letzte Zeile auch am Ende der Sortierten Variablen ein --> ; _ Wie kann man dieses nun weglassen?
Und noch eine Frage zum Array:
Kann man es nicht definieren, mit einer Variablen --> sort : array[0..n] of integer.?
Dann könnte man die Variable im Program eingeben lassen. Dadurch wäre es ein wenig flexibler.
Die letzten Antworten habe ich erst eben gelesen, deswegen hat das nichts mehr damit zu tun...