| Class TForm1 (unit EDemoNew) |
TForm
| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure DBEditN1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure EditN10Change(Sender: TObject);
procedure EditN11Exit(Sender: TObject);
procedure EditN12Exit(Sender: TObject);
procedure EditN1Change(Sender: TObject);
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);
procedure SpeedButton2Click(Sender: TObject);| Properties |
| Events |
| Variables |
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;
IntArray : array [1..100] of Integer;
nEdit : array [1..10] of TEditN;
nLabel : array [1..10] of TLabel;
p : array [1..10] of Pointer;| Constructors |
| Functions |
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]
| Properties |
| Events |
| Variables |
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