Class TForm1 (unit EDemoNew) |
Inherits from
TForm
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
Update value of IntArray[.
procedure BitBtn4Click(Sender: TObject);
Clear the nEdit array
procedure DBEditN1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Decrease
procedure EditN10Change(Sender: TObject);
procedure EditN11Exit(Sender: TObject);
Move the nEdit array on the value of IntArray to down
procedure EditN12Exit(Sender: TObject);
procedure EditN1Change(Sender: TObject);
Assign the value of the table to IntArray[1.
procedure EditN2Change(Sender: TObject);
procedure EditN3Change(Sender: TObject);
procedure EditN4Change(Sender: TObject);
procedure EditN5Change(Sender: TObject);
procedure EditN6Change(Sender: TObject);
procedure EditN7Change(Sender: TObject);
procedure EditN9Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
Move in the Table with cursor arrow key
procedure SpeedButton2Click(Sender: TObject);
Change the assign nEdit[1.
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn3 : TBitBtn;
BitBtn4 : TBitBtn;
BitBtn5 : TBitBtn;
DataSource1 : TDataSource;
DbEditN : TLabel;
DBEditN1 : TDBEditN;
DBEditN2 : TDBEditN;
EditN1 : TEditN;
EditN10 : TEditN;
EditN11 : TEditN;
EditN12 : TEditN;
EditN2 : TEditN;
EditN3 : TEditN;
EditN4 : TEditN;
EditN5 : TEditN;
EditN6 : TEditN;
EditN7 : TEditN;
EditN8 : TEditN;
EditN9 : TEditN;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label16 : TLabel;
Label17 : TLabel;
Label18 : TLabel;
Label19 : TLabel;
Label2 : TLabel;
Label20 : TLabel;
Label21 : TLabel;
Label22 : TLabel;
Label23 : TLabel;
Label24 : TLabel;
Label25 : TLabel;
Label26 : TLabel;
Label27 : TLabel;
Label28 : TLabel;
Label29 : TLabel;
Label3 : TLabel;
Label30 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
MEditN1 : TMEditN;
Panel1 : TPanel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
Table1 : TTable;
iIndex : Integer;
Array of Label
IntArray : array [1..100] of Integer;
nEdit : array [1..10] of TEditN;
Array of integer value in memory
nLabel : array [1..10] of TLabel;
Pointer to conection nEdit[.
p : array [1..10] of Pointer;
Array of new array in runtime dreate
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
Update value of IntArray[..] on the nEdit[..]
procedure BitBtn4Click(Sender: TObject);
Clear the nEdit array
procedure DBEditN1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Decrease
procedure EditN10Change(Sender: TObject);
procedure EditN11Exit(Sender: TObject);
Move the nEdit array on the value of IntArray to down
procedure EditN12Exit(Sender: TObject);
procedure EditN1Change(Sender: TObject);
Assign the value of the table to IntArray[1..100]
procedure EditN2Change(Sender: TObject);
procedure EditN3Change(Sender: TObject);
procedure EditN4Change(Sender: TObject);
procedure EditN5Change(Sender: TObject);
procedure EditN6Change(Sender: TObject);
procedure EditN7Change(Sender: TObject);
procedure EditN9Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
Move in the Table with cursor arrow key
procedure SpeedButton2Click(Sender: TObject);
Change the assign nEdit[1..10] to IntArray[iIndex..iIndex + 9]
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn3 : TBitBtn;
BitBtn4 : TBitBtn;
BitBtn5 : TBitBtn;
DataSource1 : TDataSource;
DbEditN : TLabel;
DBEditN1 : TDBEditN;
DBEditN2 : TDBEditN;
EditN1 : TEditN;
EditN10 : TEditN;
EditN11 : TEditN;
EditN12 : TEditN;
EditN2 : TEditN;
EditN3 : TEditN;
EditN4 : TEditN;
EditN5 : TEditN;
EditN6 : TEditN;
EditN7 : TEditN;
EditN8 : TEditN;
EditN9 : TEditN;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label16 : TLabel;
Label17 : TLabel;
Label18 : TLabel;
Label19 : TLabel;
Label2 : TLabel;
Label20 : TLabel;
Label21 : TLabel;
Label22 : TLabel;
Label23 : TLabel;
Label24 : TLabel;
Label25 : TLabel;
Label26 : TLabel;
Label27 : TLabel;
Label28 : TLabel;
Label29 : TLabel;
Label3 : TLabel;
Label30 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
MEditN1 : TMEditN;
Panel1 : TPanel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
Table1 : TTable;
iIndex : Integer;
Array of Label
IntArray : array [1..100] of Integer;
nEdit : array [1..10] of TEditN;
Array of integer value in memory
nLabel : array [1..10] of TLabel;
Pointer to conection nEdit[..] to IntArray[..]
p : array [1..10] of Pointer;
Array of new array in runtime dreate