Как записать object, содержащий WideString в файл?

[Lex_Liven]

Есть тип

type
TMyObj=object
  Name:WideString;
  ID:integer;
  procedure SomeMethod;
end;

Соответственно, есть объект и файл

var MyObj:TMyObj;
     F:File of TMyObj;

Нужно записать объект (или несколько) в файл так, чтобы потом можно было прочитать.
Я пишу

AssignFile(F,'File.dat');
Rewrite(F);
Write(F,MyObj);
CloseFile(F);

И в файле получаю какую-то ересь вместо Name. При этом ID видно при просмотре файла в Hex-редакторе.

Как решить?
Если нет прямого пути, буду рад любым предложениям по хранению такого TMyObj.

[GunSmoker]

Читаем вдумчиво с заходом по указываемым ссылкам: http://forum.vingrad.ru/forum/topic-.../view-all.html

Особенно вот это смотрим: http://www.delphikingdom.ru/asp/view...alogid=1206#06

[Lex_Liven]

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

Читаем вдумчиво с заходом по указываемым ссылкам: http://forum.vingrad.ru/forum/topic-.../view-all.html

Особенно вот это смотрим: http://www.delphikingdom.ru/asp/view...alogid=1206#06

Первую ссылку не осилил до конца - там совсем ударились в классы...
А по второй я сделал вывод, что простейший способ - это записать не WideString, а Array[1..500]of WideChar.
Так? Или я, все-таки, недостаточно вдумчиво читал?

[GunSmoker]

Простейший - да. Со всеми его ограничениями (трата места впустую, ограничение на длину, невозможность редактирования человеком). Но быстро и просто - да.

[Lex_Liven]

Ну, в исходном проекте, над которым я работаю, ограничения длины были еще жестче - 30-50 символов, так что это некритично.
Я не понял насчет "редактирования человеком" - вся работа с этими строками идет через компоненты формы, возможность редактирования файлов вручную не предусматривается, так что это тоже не то, на что стоит заморачиваться.
Большое спасибо. Когда проверю, дополню пост.
=================================== ======
Проверил. Дополняю.
Все действительно заработало "почти из коробки". Есть, правда, один глюк. Если не записывать длину строки в виде Integer в тот же файл, то при считывании - считываются все 500 символов (если массив из 500 элементов), что создает проблемы при записи в такой массив, например, пути к файлу. Сейчас попробую дописать в конец 0 символ.
Не помогло. Думаю ввести новый объект...

  WString=object
                Len:integer;
                Text:array[1..500]of WideChar;
                function GetText:WideString;             //получить обычный WideString из объекта. Для работы с функциями Дельфи.
                procedure SetText(S:WideString); //соответственно, сохранить WideString в объект.
  end;

Есть предложения по размеру массива внутри? Можно ли сделать его изменяющимся для каждого объекта? Чтобы можно было объявить объект типа WString[50], например?

[Lex_Liven]

Так как? Есть возможность задать размерность объекта? Или придется объявлять 4 типа? WString30, WString50, WString100 и WString500?

[Пепел Феникса]

опишите процедуры SaveToStream/LoadFromStream(или вам именно через File надо?)
в них и сохраняйте/грузите как нужно.

[Lex_Liven]

Если я объявляю такой объект, то он пишется в файл и читается оттуда без проблем. Даже если я его потом в другой объект включаю (а именно для этого он мне и нужен). Просто хотелось бы для строки длиной не более 30 символов использовать именно WString с массивом внутри array[1..30], а не 500.

Или мне для этого надо объявить класс WString со своими методами, а уже от него создавать объекты?

[Пепел Феникса]

 WString=object
                Len:integer;
                Text:array[1..30]of WideChar;
                function GetText:WideString;             //получить обычный WideString из объекта. Для работы с функциями Дельфи.
                procedure SetText(S:WideString); //соответственно, сохранить WideString в объект.
  end;

а так нельзя чтоль?

[Lex_Liven]

Или придется объявлять 4 типа? WString30, WString50, WString100 и WString500?

Пепел, я читал ваши посты и не ожидал, что вы будете невнимательно читать. Мне нужны 4 размера данного объекта. в 30, 50, 100 и 500 символов.