Скачать: CL | DM;

Быстро сохранить запись (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]

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

---

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

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

---

← →
Ketmar ©   (2006-10-09 16:32) [13]

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

---

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

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

---

← →
Игорь Шевченко ©   (2006-10-09 16:43) [15]

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

---

← →
Сергей М. ©   (2006-10-09 16:49) [16]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.045 c