VPF::Работа с массивом. - Форум программистов

The MASTER

Дата 21.6.2005, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

Привет всем!
Есть тип: TDataBase,
В нём 7 полей:
Name
Address
Phone
Mobile
Email
Site
Comments.

Есть массив: DBase: array of TDataBase;

На форме слева ListBox, в котором содержатся имена челов, при нажатие на чела слева в соответствующих полях появляется информация о нём.

Внимание вопрос: Как сохранить всё информацию добавленную челом в базу в файл а потом считать её?

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

Pakshin A. S.

Дата 21.6.2005, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Пример

Код


var
 f: file of TDataBase;
...

(*Save*)
rewrite(f);
for i:=0 to Length(DBase) do
 write(f, DBase);
...
(*Load*)
reset(f);
SetLength(DBase, 0);
while not Eof(f) do
 begin
  SetLength(DBase, Length(DBase)+1);
  read(f, buf);
  DBase[HIgh(DBase)]):=buf;
 end;
...

Идея ясна? Или я вопроса не понял...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »