Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Вниз

record; packed record   Найти похожие ветки 

← →
LazorenkoX   (2002-04-16 16:56) [8]

Это одни из маленьких.

RJobInfo = record
Position: String[70];
Salary: Double;
Employed,
Dismissed: TDate;
Basic: Boolean;
end;

RPassport = record
Serial: String[2];
Number: String[6];
Issued: String[100];
Date: TDate;
end;

RContactInfo = record
Address: ShortString;
Phone: String[100];
EMail: String[100];
WWW: ShortString;
end;

RPerson = record
Name: array [1..3] of String[30];
ITN: String[10];
Sex: Byte;
Contact: RContactInfo;
Passport: RPassport;
JobInfo: RJobInfo;
Description: String[100];
end;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c