Class TForm1 (unit EDemoNew)

Inherits from

TForm

Constructors



Functions

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.

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[.

p : array [1..10] of Pointer;

Array of new array in runtime dreate


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