| Class TForm1 (unit DemoUn) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
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;