Class TForm1 (unit Fixtextf) |
Inherits from
TForm
procedure CreateBtnClick(Sender: TObject);
Fill the array with spaces in case the
string is shorter than the array.
procedure DeleteBtnClick(Sender: TObject);
Read the file 100 records at a time.
procedure ReadBtnClick(Sender: TObject);
Write 100 buffers (10,000 records.
CreateBtn : TButton;
DeleteBtn : TButton;
Label1 : TLabel;
ReadBtn : TButton;
ReadCount : TLabel;
procedure CreateBtnClick(Sender: TObject);
Fill the array with spaces in case the
string is shorter than the array.
procedure DeleteBtnClick(Sender: TObject);
Read the file 100 records at a time.
procedure ReadBtnClick(Sender: TObject);
Write 100 buffers (10,000 records.
CreateBtn : TButton;
DeleteBtn : TButton;
Label1 : TLabel;
ReadBtn : TButton;
ReadCount : TLabel;