VPF::Несколько записей в одном не типизированном файле

former

Дата 25.3.2006, 22:50 (ссылка)

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

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

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

Подскажите, как можно хранить две разные записи (record) в одном не типизированном файле? Сначала сохраняется первая запись, а затем массив вторых. smile

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Matematik

Дата 26.3.2006, 01:54 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Что-то, типа, такого:

Код


type
  TRecord1=record
    a1,a2,a3:Integer;
  end;
  TRecord2=record
    a4,a5,a6:Integer;
  end;
  TRecord2DynArray = array of TRecord2;
var
  Record1 : TRecord1;
  Record2 : TRecord2DynArray
//-------------------------------------
// чтение
TFileStream.Read(Record1, Sizeof(Record1));
TFileStream.Read(j, SizeOf(Integer));
SetLength(Record2, j);
for j:=Low(Record2) to High(Record2) do
  TFileStream.Read(Record2[j], Sizeof(Record2[j]));
//-------------------------------------
// запись
TFileStream.Write(Record1, Sizeof(Record1));
TFileStream.Write(Length(Record2), SizeOf(Integer));
for j:=Low(Record2) to High(Record2) do
  TFileStream.Write(Record2[j], Sizeof(Record2[j]));

former

Дата 27.3.2006, 19:19 (ссылка)

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

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

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

Спасибо.

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

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