Class TForm1 (unit DemoUn) |
Inherits from
TForm
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
Result:= CompareText(PDemoData(Item1)^.
procedure FormDestroy(Sender: TObject);
Button1 : TButton;
Button2 : TButton;
Label1 : TLabel;
OpenDialog1 : TOpenDialog;
Time1 : TmwFastTime;
FixRecSort : TFixRecSort;
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);
Button1 : TButton;
Button2 : TButton;
Label1 : TLabel;
OpenDialog1 : TOpenDialog;
Time1 : TmwFastTime;
FixRecSort : TFixRecSort;