Delphi - Bubblesort - bin totaler anfänger...

[KermitFrosch]

Hier is die Tauschprozedur... hoffe du kannst dich ein wenig an diesem Beispiel orientieren...

Delphi-Quellcode:

  Procedure TForm1.btnbubbleClick(Sender: TObject);   //Tauschprozedur
    Var i, j, s: Integer;

    Begin
      For i := 1 to ende - 1 do
        For j := i + 1 to ende do
          If zahl[i] > zahl[j] Then Begin
            s := zahl[i];
            zahl[i] := zahl[j];
            zahl[j] := s;
          End;
      edtausgabe.Text := '';
      For i := 1 to ende do
        edtausgabe.Text := edtausgabe.Text + IntToStr(zahl[i]) + '     ';  
    End;