Class TForm1 (unit DemoUn)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure FormCreate(Sender: TObject);

Result:= CompareText(PDemoData(Item1)^.

procedure FormDestroy(Sender: TObject);


Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Label1 : TLabel;


OpenDialog1 : TOpenDialog;


Time1 : TmwFastTime;


FixRecSort : TFixRecSort;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure FormCreate(Sender: TObject);

Result:= CompareText(PDemoData(Item1)^.Data1, PDemoData(Item2)^.Data1); The same as above, more comfortable but slower. A typecast can cost lots of time. However, for large amounts of Records (Millions) Windows file buffering system will equalize this..


procedure FormDestroy(Sender: TObject);


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Label1 : TLabel;


OpenDialog1 : TOpenDialog;


Time1 : TmwFastTime;


FixRecSort : TFixRecSort;