Bubblesort

[flac]

Ich hoffe Sie meinen diese Stelle

Code:

unit bubblesort;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
    TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Close_BitBtn: TBitBtn;
    Sortieren_BitBtn: TBitBtn;
    Zufallszahl_BitBtn: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure Close_BitBtnClick(Sender: TObject);
    procedure Sortieren_BitBtnClick(Sender: TObject);
    procedure Zufallszahl_BitBtnClick(Sender: TObject);
  private
    { Private-Deklarationen }
     Zahl: Array[1..10] of Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i,j,Merke:  Integer;