В Delphi 8 как сохранить структуру в файл и потом загрузить из бинарного файла?

Здравствуйте, KindDragon, Вы писали:

KD>В Delphi 8 как сохранить структуру в файл и потом загрузить из бинарного файла?

Тоесть структуру? что ты понимаеш под этим словом?

Здравствуйте, KindDragon, Вы писали:

KD>В Delphi 8 как сохранить структуру в файл и потом загрузить из бинарного файла?
Дык это помоему не зависит от версии делфей
Есть такие функции как BlockRead/BlockWrite + Reset(<file>, 1);
Размер определить естественно через sizeof, а вот только проблема есть со строками. просто так полятина string так не считаешь, ибо это есть просто аддресс по умолчанию и ничего большего

Здравствуйте, KindDragon, Вы писали:

KD>В Delphi 8 как сохранить структуру в файл и потом загрузить из бинарного файла?

В смысле record? К примеру, использовать binary serializer:

Type
    SomeStuct = record
    public
        FieldA : Integer;
        FieldB : Integer;
        ...
    end;

...

implementation

Uses
    System.IO,
    System.Runtime.Serialization.Formatters.Binary;

Procedure FooClass.SaveStruct(s: SomeStruct; const fileName: &string);
Var
    fs : FileStream;
    bs : BinaryFormatter;
begin
    fs := FileStream.Create(fileName, FileMode.Create);
    try
        bf := BinaryFormatter.Create;
        fs.Serialize (fileName, s);
    finally
        fs.Close;
    end;
end;

Здравствуйте, Spaider, Вы писали:

S>Здравствуйте, KindDragon, Вы писали:

KD>>В Delphi 8 как сохранить структуру в файл и потом загрузить из бинарного файла?

S>В смысле record? К примеру, использовать binary serializer:

S>

S>        fs.Serialize (fileName, s);
S>

Ошибочка , конечно же

S>

S>        bf.Serialize (fileName, s);
S>

Спасибо, вот про это я и спрашивал.