Class TForm1 (unit Fixtextf)

Inherits from

TForm

Constructors



Functions

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.

Properties

Events

Variables

CreateBtn : TButton;


DeleteBtn : TButton;


Label1 : TLabel;


ReadBtn : TButton;


ReadCount : TLabel;



Constructors


Functions


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.


Properties


Events


Variables


CreateBtn : TButton;


DeleteBtn : TButton;


Label1 : TLabel;


ReadBtn : TButton;


ReadCount : TLabel;