Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа с массивом.

Автор: The MASTER 21.6.2005, 12:55

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

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

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

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

Автор: Pakshin A. S. 21.6.2005, 13:11

Пример

Код


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

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