запись в файл

← →
dimon (2004-02-07 18:43) [0]

есть структура
TBoomark=record
Description,Path:TStringList;

BoomList:TBoomark;

пытаюсь сохранить все это дело в файл:
f:=TFileStream.Create(ExtractFilePath(Application.ExeName)+"\boomark2.bom",fmCreate or fmOpenWrite);
f.Write(BoomList,sizeof(BoomList));
f.Free;
а так же загрузить обратно:
f:=TFileStream.Create(ExtractFilePath(Application.ExeName)+"\boomark2.bom",fmOpenRead);
f.Read(BoomList,sizeof(BoomList));
f.Free;

Но почему то сохраняется только 8 байт, может я что не так делаю???
Помогите плиз...

← →
хз (2004-02-07 18:47) [1]

Может я что-то путаю, но вроде TStringList в TFileStream так не записывается.

← →
Sergey_Masloff (2004-02-07 18:48) [2]

Ну дык sizeof(BoomList) и есть 8 байт. Два указателя по 4 байта. Ну и сохраняешь ты их. На фига непонятно.

← →
Palladin (2004-02-07 18:55) [3]

> может я что не так делаю???

Да нет... все так... только ожидания твои не то ожидают...
Созданный объект класса является указателем. Какой бы класс ты не использовал. Идентификаторы динамические массивов тоже являются указателями. Строки, объявленные при директивы {$H+} являются указателями. Если к строкам и массивам еще можно обращатся путем ^ или @[0], то с объектами все гораздо сложней, ибо класс имеет гораздо более сложную организацию чем запись, методы ссылки на другие объекты и свойства.

← →
petro (2004-02-07 18:58) [4]

понятно. спасибо

запись в файл Найти похожие ветки