Разработка программы предприятий и менеджеров в Delphi

Для хранения данных предприятий и менеджеров в программе на Delphi используется файл в качестве базы данных в, котором по каждому предпритию хранится следующая информация. 

• Название организации – используется для ввода названия организации, данное поле может состоять из 100 символов, текстового типа.
• Адрес -  используется для ввода местоположения фирмы, данное поле состоит 150 символов, текстового типа.
• Телефон – используется для ввода контактного номера фирмы, данное поле содержит 20 символов, текстового типа.
• Контактное лицо – используется для ввода ФИО представителя фирмы из руководящего звена, данное поле состоит из 50 символов, текстового типа.
• E-mail – используется для ввода электронного адреса фирмы, данное поле может состоять 30 символов, текстового типа.
• Регион – используется для ввода названия области и города, данное моле может достигать 100 символов.
• Вид деятельности – используется для ввода, того чем фирма занимается, то есть производит или реализует, поле может достигать 50 символов, также текстового типа.
• Основная продукция – используется для ввода основной продукции, которую фирма производит или продаёт, данное поле может достигать 50 символов, текстового типа.
• Менеджер – используется для ввода информации о представителе фирмы, данное поле может достигать 100 символов, текстового типа. 

Структура файла задается с помощью создаваемого типа данных TNote:

type
 TNote=record
  org: string[100];
  adr: string[150];
  tel: string[20];
  kontl: string[50];
  email: string[30];
  reg: string[100];
  vidd: string[50];
  osnprod: string[50];
  meneg: string[100];
end;

На  каждую запись необходимо 680 байт памяти на жестком диске. Для позиционирования по данным используются смещения, наподобие как сегментном режиме работы с памятью - сегмент: смещение. Отсюда следует, для того чтобы обратится к названию телефона второй записи, нужно указать номер записи, что можно отнести к сегменту и позиция размещения данных телефона, что можно отнести к смещению, тогда это будет так 1(или сумма 1-й записи) : [100+150], отсчет идёт от нуля.

После скачивания программы необходимо сначала сделать распаковку всех файлов из архива и уже только потом производить запуск программы, также можно ознакомиться с инструкцией к программе.