Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Быстро сохранить запись (record)

yel © (2006-10-09 16:18:00)
Есть запись со множеством полей
S = record a = integer; b = string; ... end;
Есть ли простой способ сохранить ее в файл (и соответсвенно считать обратно)

Сергей М. (2006-10-09 16:49:00) [1]
var
MyRec: S;
Len: Integer;

..

//сохранение записи

Len := Length(MyRec.b);
MyFileStream.WriteBuffer(MyRec.a,SizeOf(MyRec.a));
MyFileStream.WriteBuffer(Len,SizeOf(Len));
MyFileStream.WriteBuffer(PChar(MyRec.b)^,Len);

//восстановление записи

MyFileStream.ReadBuffer(MyRec.a,SizeOf(MyRec.a));
MyFileStream.ReadBuffer(Len,SizeOf(Len));
SetLength(MyRec.b, Len);
MyFileStream.ReadBuffer(PChar(MyRec.b)^,Len);

Куда уж проще...

Игорь Шевченко (2006-10-09 16:43:00) [2]
Просьба уважать труд модератора, у него трафик не резиновый.

Elen (2006-10-09 16:34:00) [3]
Удалено модератором

Ketmar (2006-10-09 16:32:00) [4]
Удалено модератором

Elen (2006-10-09 16:31:00) [5]
Удалено модератором

Ketmar (2006-10-09 16:29:00) [6]
Удалено модератором

Elen (2006-10-09 16:27:00) [7]
Удалено модератором

Ketmar (2006-10-09 16:26:00) [8]
Удалено модератором

Elen (2006-10-09 16:25:00) [9]
Удалено модератором

Ketmar (2006-10-09 16:23:00) [10]
Удалено модератором

Elen (2006-10-09 16:22:00) [11]
Удалено модератором

Ketmar (2006-10-09 16:21:00) [12]
Удалено модератором

Dmitrij_K (2006-10-09 16:20:00) [13]

> Есть ли простой способ сохранить ее в файл

В случае товоей записи, нет.

Elen (2006-10-09 16:20:00) [14]
да обьяви f:file of s
потом write (f,<Перемнная_типа_S>)

Ketmar (2006-10-09 16:20:00) [15]
заменить string на ShortString -- и сохраняй себе кучкой.

yel (2006-10-09 16:19:00) [16]
мои извинения, конечно же
S = record a : integer; b : string; ... end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »