Запись данный в файл и считывание потоками

[NapalmRain]

Доброго всем времени суток.
Попытался сделать такого рода финт: есть самодельный тип переменной.
В ней что-то храниться,
записываю эту переменную в файл так:

FileStream := TFileStream.Create(sSaveDialog1.FileName, fmCreate);
    FileStream.Write(MyVar, 1024);
    FileStream.Free;

Потом пытаюсь это дело считать обратно и получаю ошибку доступа к памяти.
читаю так:

FileStream := TFileStream.Create(sOpenDialog1.FileName, fmOpenRead);
    FileStream.Read(MyVar, 1024);
    name := MyVar.Name;

прошу подсказать, как поступить в данной ситуации правильнее.

[evg_m]

как поступить в данной ситуации правильнее.

показать что есть MyVar.

есть самодельный тип переменной.

[Serge_Bliznykov]

во-первых, откуда из приведённого кода видно, какой тип имеет переменная MyVar
вангую, что это вообще ссылочный тип (указатель)! Ведь признавайтесь, это переменная object ?!!!

во-вторых, почему пишете 1024. Почему не 4096, например?!

в-третьих, так просто объект записывать/читать не получится!

[NapalmRain]

Сообщение от evg_m

показать что есть MyVar.

type MyType = Record
    Name: string[255];
    version: integer;
    Author: string[255];
    Content: string;
  end;

[NapalmRain]

Сообщение от Serge_Bliznykov

во-первых, откуда из приведённого кода видно, какой тип имеет переменная MyVar
вангую, что это вообще ссылочный тип (указатель)! Ведь признавайтесь, это переменная object ?!!!

во-вторых, почему пишете 1024. Почему не 4096, например?!

в-третьих, так просто объект записывать/читать не получится!

Ну сейчас попробовал записывать слегка иначе: вместо 1024 написав SizeOf(MyVar);
При считывании правда не совсем понятно какое число водить. Как результат данные-то я получаю нормально, то есть пишу потом тот же showmessage(myvar.Name); Всё прекрасно, но ошибка доступа к памяти остаётся на лицо.

[Alter]

Content: string[255];
Или вместо String использовать ShortString

Про позиционирование в файле еще посмотрите.
TFileStream

[Serge_Bliznykov]

ALter, +1

NapalmRain, чем Вас типизированные файлы не устроили?!
Идеальный вариант, если файл состоит из переменных одного типа:

var f: file of MyType;
....
  {записать в файл}
  Write(f, MyVar);

...

  {прочитать из файла}
  Read(f, MyVar);

всё просто, быстро надёжно. Чинно и благородно, как в старые времена!