Also das mit dem sortieren klappt erstmal soweit. Denke ich. Siehe hier:
Delphi-Quellcode:
procedure TForm1.btnsortClick(Sender: TObject);
begin
For i:= 1 to 10-1 Do
Begin
min:= i;
For j:= i+1 To 10 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) do
begin
lblsort.caption := lblsort.caption + IntToStr(sort[i]) + ' ';
end;
end;
Aber das Einfügen geht wirklich nicht.
Hier mal alles von Implementation an:
Delphi-Quellcode:
implementation
{$R *.lfm}
{ TForm1 }
var sort : array[1..10]of integer;
zahl, bis, i, a, j, h, min : integer ;
procedure TForm1.FormCreate(Sender: TObject);
begin
bis := High(sort);
min := low (sort);
end;
procedure TForm1.btnhinzuClick(Sender: TObject);
begin
zahl:= strtoint(edteingabe.caption);
for a:= min + 1 to bis do
begin
sort[a]:= zahl;
end;
lblunsort.caption := inttostr(sort[1]) + ' hinzugefügt';
end;
Zitat:
Im ersten Moment sieht es nämlich so aus, als würde dein Array nach dem Buttonclick immer mit dem jeweiligen Caption Wert gefüllt werden können: d.H. die Felder des Arrays hätten dann alle den selben Wert, wie er nach dem letzten Buttonclick übergeben würde...
also das array hat nach dem sortieren die ersten beiden Werte = 0; Und die letzten (8) = so groß wie der zuletzt eingegebene Wert.
Ich weiß, das kann eigentlich nicht so schwer sein. Aber ich kenne mich damit nicht aus...