[Uniq!]

Имеется вот такая вот структура:

Код:

type
  TFigure = record
    Points: array [0 .. 1] of TPoint;
    Model: string;

    procedure SetFigure(str: string);
  end;

type
  TMarker = record
    Name: string;
    Description: string;
    Color: TColor;
    Style: TPenStyle;
    Width: integer;
    Figures: array [0 .. 5] of TFigure;
  end;

TFigure.Model: string; заполняю из TEdit

Запись TMarker сохраняю вот так:

Код:

AssignFile(MFile, SaveDialog1.FileName + '.dat');
Rewrite(MFile, 1);
BlockWrite(MFile, Marker, SizeOf(Marker));
CloseFile(MFile);

Загружаю вот так:

Код:

AssignFile(mFile, 'C:\Flag1.dat');
Reset(MFile, 1);
BlockRead(MFile, Marker, SizeOf(Marker));
CloseFile(MFile);

Но на выходе получаю:

Код:

Marker.Name '묌'#1'#'#0#9#0#$1C#0'僨...

Как побороть?

Ps. DELPHI XE3

[Alegun]

Если это запись (структура) считываемая из файла, то все её поля должны быть фиксированной длины, т.е. напр. Name: string[50];

З.Ы. Да, и как объявлен MFile? Должен быть как file of TMarker.

P.S. Вот ссылка на типизированные файлы.

[Uniq!]

Шикарно, спасибо.