2 Статические данные и структуры
Ниже приводится описание и назначение основных структур и данных, используемых в программе.
Type
TBank=record
Number:1..9999;//номер отделения банка
City:string[50];//город. Где находится отделение
Addres:string[50];//адрес отделения
NameFront:string[50];//название отделения
Cod:1..999;//код отделения (3-хзначное число)
end;
TWTK=record
FamilyName:string[50];//фамилия члена ВТК
Name:string[50];//имя члена ВТК
Patronymic:string[50];//отчество члена ВТК
Year:integer;//год рождения
Kod:string[10];//код хозяйственного договора
Sign:(Head,Radovo);//должность
SummMany:extended;//вознагрождение за работу
Addres:string[50];//адрес проживания
NumberBank:1..9999;//номер отделения сбербанка
Account:1..9999999;расчетный счет исполнителя
end;
TXD=record
Number:integer;//номер хозяйственного договора
DateCreat:TDateTime;//дата подписания договора
DataFree:TDateTime;//дата завершения договора
Tema:string[50];//тема договора
Customer:string[50];//заказчик работ
PriznakFree:Boolean;//признак готовности
Price:extended;//вознаграждение на каждого члеан ВТК выполнявшие работу
end;
var
Fbank: file of TBank;
Fwtk: file of TWTK;
Fxd: file of TXD;
XD:array of TXD;//массив записей
BTK:array of TWTK;//массив записей
BANK:array of TBank;//массив записей
NameFbank:string;//имя файла базы банков
NameFwtk:string; //имя файла базы ВТК
NameFxd:string; //имя файла базы ХД
Анализ размещения глобальных и локальных данных в памяти (объем занимаемой памяти и указания адресов)
Тип |
Имя переменной |
Размер памяти в байтах |
Начальный адрес |
Глобальные переменные |
|||
TB |
Fbank |
332 |
$49ABA8 |
TW |
Fwtk |
332 |
$49ACF4 |
TX |
FXD |
332 |
$49AE40 |
Array of TXD |
XD |
4 |
$49AF8C |
Array of TWTk |
BTK |
4 |
$49AF90 |
Array of TBank |
BANK |
4 |
$49AF94 |
integer |
XD[0].Number |
4 |
$9D6A24 |
TDateTime |
XD[0]. DateCreat |
8 |
$9D6A2C |
TDateTime |
XD[0]. DataFree |
8 |
$9D6A34 |
string[50] |
XD[0]. Tema |
51 |
$9D6A3C |
string[50] |
XD[0]. Customer |
51 |
$9D6A6F |
Boolean |
XD[0]. PriznakFree |
1 |
$9D6AA2 |
extended |
XD[0]. Price |
10 |
$9D6AA4 |
1..9999 |
BANK[0]. Number |
2 |
$9D3FDC |
string[50] |
BANK[0]. City |
51 |
$9D3FDE |
string[50] |
BANK[0]. Addres |
51 |
$9D4011 |
string[50] |
BANK[0]. NameFront |
51 |
$9D4044 |
1..999 |
BANK[0]. Cod |
2 |
$9D4078 |
string[50] |
BTK[0]. FamilyName |
51 |
$9D737C |
string[50] |
BTK[0]. Name |
51 |
$9D73AF |
string[50] |
BTK[0]. Patronymic |
51 |
$9D73E2 |
Integer |
BTK[0]. Year |
4 |
$9D7418 |
string[10] |
BTK[0]. Kod |
11 |
$9D741C |
(Head,Radovo) |
BTK[0]. Sign |
1 |
$9D7427 |
Extended |
BTK[0]. SummMany |
10 |
$9D742C |
string[50] |
BTK[0]. Addres |
51 |
$9D7436 |
1..9999 |
BTK[0]. NumberBank |
2 |
$9D746A |
1..9999999 |
BTK[0]. Account |
4 |
$9D746C |
string |
NameFbank |
4 |
$49AF98 |
string |
NameFwtk |
4 |
$49AF9C |
string |
NameFxd |
4 |
$49AFA0 |
Некоторые локальные переменные |
|||
Cardinal |
i (procedure TFormBank.ButtonCutBankClick) |
4 |
$12EC94 |
Cardinal |
N (procedure TFormBank.ButtonDelBankClick) |
4 |
$12EC98 |
Word |
Year (procedure TNoFreeXD.FormingList) |
2 |
$12F606 |