Class TForm1 (unit Fmtest)

Inherits from

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;

Private declarations

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;