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

← →
yel (2006-10-09 16:18) [0]

Есть запись со множеством полей
S = record a = integer; b = string; ... end;
Есть ли простой способ сохранить ее в файл (и соответсвенно считать обратно)

← →
yel (2006-10-09 16:19) [1]

мои извинения, конечно же
S = record a : integer; b : string; ... end;

← →
Dmitrij_K (2006-10-09 16:20) [2]

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

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

← →
Elen © (2006-10-09 16:20) [3]

да обьяви f:file of s
потом write (f,<Перемнная_типа_S>)

← →
Ketmar © (2006-10-09 16:20) [4]

заменить string на ShortString -- и сохраняй себе кучкой.

← →
Ketmar © (2006-10-09 16:21) [5]

Удалено модератором

← →
Elen © (2006-10-09 16:22) [6]

Удалено модератором

← →
Ketmar © (2006-10-09 16:23) [7]

Удалено модератором

← →
Elen © (2006-10-09 16:25) [8]

Удалено модератором

← →
Ketmar © (2006-10-09 16:26) [9]

Удалено модератором

← →
Elen © (2006-10-09 16:27) [10]

Удалено модератором

← →
Ketmar © (2006-10-09 16:29) [11]

Удалено модератором

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

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

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

Быстро сохранить запись (record) Найти похожие ветки