| Class TForm1 (unit Fmtest) |
TForm
| Constructors |
| Functions |
procedure CancelBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure GenBtnClick(Sender: TObject);
procedure QSort1Compare(Sender: TObject; i, j: Integer;
var Result: Integer);
procedure QSort1Swap(Sender: TObject; i, j: Integer);
procedure SortBtnClick(Sender: TObject);
procedure CheckCancel;
procedure DoSave( Data : TList; const Fn, Title : TFileName );
procedure GenerateData;
procedure LoadData;
procedure SaveData;
procedure ShowData(const Fn:string);
procedure SortDataBubble;
procedure SortDataQuick;
procedure TimerStart( Lbl : TLabel ) ;
procedure TimerStop( Lbl : TLabel ) ;
procedure WriteData(const Fn, Title : TFileName ) ;| Properties |
| Events |
| Variables |
CancelBtn : TButton;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
GenBtn : TButton;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
QSort1 : TQSort;
SortBtn : TButton;
FCancel : Boolean;
FData : TList;
FSorted : TList;
FTime : TDateTime;| Constructors |
| Functions |
procedure CancelBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure GenBtnClick(Sender: TObject);
procedure QSort1Compare(Sender: TObject; i, j: Integer;
var Result: Integer);
procedure QSort1Swap(Sender: TObject; i, j: Integer);
procedure SortBtnClick(Sender: TObject);
procedure CheckCancel;
procedure DoSave( Data : TList; const Fn, Title : TFileName );
procedure GenerateData;
procedure LoadData;
procedure SaveData;
procedure ShowData(const Fn:string);
procedure SortDataBubble;
procedure SortDataQuick;
procedure TimerStart( Lbl : TLabel ) ;
procedure TimerStop( Lbl : TLabel ) ;
procedure WriteData(const Fn, Title : TFileName ) ;| Properties |
| Events |
| Variables |
CancelBtn : TButton;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
GenBtn : TButton;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
QSort1 : TQSort;
SortBtn : TButton;
FCancel : Boolean;
FData : TList;Private declarations
FSorted : TList;
FTime : TDateTime;