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

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

видимо придется делать именно так как я сказал в 7 посте.
я пишу реализацию на месте обьяления, это перенесете как положено.

type
 WString=object
  private
   FText:WideString
   function GetLength:Integer;
    begin
     Result:=Length(FText);
    end;
   procedure SetLength(Value:Integer);
    begin
     SetLength(FText,Value);
    end;
  public 
   function SaveToStream(Stream:TStream):Integer;
    var i:Integer;
    begin
     Result:=0;
     i:=Length;//длину в переменную
     Inc(Result,Stream.Write(i,SizeOf(i));//сохраняем длину
     if(i<>0) then Inc(Result,Stream.Write(FText[1],SizeOf(WideChar)*i));//если длина не ноль, то сохраняем символы
    end;
   function LoadFromStream(Stream:TStream):Integer;
    var i:integer;
    begin
     Result:=0;
     Int(Result,Stream.Read(i,SizeOf(i));//загружаем длину в переменную
     Length:=i;//устанавливаем длину
     if(i<>0) then Inc(Result,Stream.Read(FText[1],SizeOf(WideChar)*i));//если длина была не нулевая, то читаем файл
    end;
   property Length:Integer read GetLength write SetLength;
   property Text:WideString read FText write FText;
  end;

соответственно придется и в классе который вы используете сделать подобное.

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

function SaveToStream(Stream:TStream):Integer;
begin
 Result:=0;
 //класс сохраняет свои данные
 Inc(Result,String.SaveToStream(Stream));
end;

function LoadFromStream(Stream:TStream):Integer;
begin
 Result:=0;
 //класс читает свои данные, в том же порядке и в том же формате что записывал
 Inc(Result,String.ReadFromStream(Stream));
end;

[Lex_Liven]

Вы опять меня не поняли... Я объявил объект и описал в нем методы GetText и SetText, которые заполняют объект символами из строки и наоборот, формируют из объекта строку.

  TWString=class
                Len:integer;
                Text:array of WideChar;
                function GetText:WideString;
                procedure SetText(S:WideString);
  end;

Если я объявляю File of WString, то с ним можно работать через write(File,MyWString);
Вопрос сейчас в том, чтобы задать размер для каждого конкретного объекта.

NameWString:WString30; {здесь все равно не больше 30 символов, мне не нужен массив из 500}
PathWString:WString500; {Путь может быть и больше 30}

Как сделать это? 4 похожих объект и 4 раза повторять описание методов?

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

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

нет, так как динамический массив в типизированный файл запишется не сам, а лишь указатель на него(то есть белиберда)

Как сделать это? 4 похожих объект и 4 раза повторять описание методов?

ну значит 4 похожих объекта, раз вам хочется через типизированные файлы работать.

Если я объявляю File of WString, то с ним можно работать через write(File,MyWString);

или я старею и в новых Делфи дин массив пишеться нормально?
попробуйте тогда. задать длину массива это SetLength(Array,<длина>);

[Lex_Liven]

Сообщение от Пепел Феникса

ну значит 4 похожих объекта, раз вам хочется через типизированные файлы работать.

Дело в том, что WString используется в качестве поля для других объектов

MoreObject1=object
Name:WString; {длина не более 30}
ID:integer;
{...}
end;
MoreObject2=object
Path:WString; {длина до 500}
ID:integer;
{...}
end;

А вот уже эти объекты и пишутся в типизированные файлы.

Сообщение от Пепел Феникса

или я старею и в новых Делфи дин массив пишеться нормально?

Совсем честно - я работаю в Lazarus (Free Pascal). Дин массивы (как и WideString) в файл пишутся в виде указателя, потому и извращаюсь. Использовал бы ShortString и не парился, но нужен Юникод, туды его в качель...

[mss]

Сам себе геморрой придумал и теперь героически его лечишь)
К чему этот object ? Нет у него в дан.случае никаких преимуществ перед class.

type
TWString=class(TComponent)
..
private
FText: WideString;
..
protected
..
procedure SetText(Value: WideString);
..
published
..
property Text: WideString read FText write SetText;
..
end;

implementation
..
var WString: TWString;
..
SomeStream.WriteComponent(WString); // запись объекта в стрим
..
SomeStream.ReadComponent(WString); // чтение объекта из стрима без регистрации класса, экз-р WString должен на этот момент существовать !
..
WString := SomeStream.ReadComponent(nil); // чтение объекта из стрима с предварительной регистрацией класса, экз-р WString будет создан автоматически, если где-то ПЕРЕД этим была выполнена регистрация класса RegisterClass(TWString)

И всё !) И вуаля !)
Всю заботу о чтении-записи опублик.св-в объекта берет на себя встроенная в RTL стриминг-система Delphi

[Lex_Liven]

Нет, не дошло... Я честно пытался понять, но никак.
1. Ладно, про private/protected/published я еще почитаю, чтобы понять, в чем отличия.
2. property Text: WideString read FText write SetText; что значит "read FText" и "write SetText"? SetText - это, надо полагать, моя процедура заполнения массива строкой? Но ведь массива в описанном вами классе уже нет.
3. Как превратить файл в Стрим и что значит регистрация класса?

[veniside]

есть такое слово, сериализация.

хотя, в твоём случае, это из пушки по воробьям. Храни 500 символов и не трать время, диски сейчас огромные, памяти завались, экономить 940 байт можно только в том случае, если планируется хранить миллиарды записей. Чтобы длина не терялась, её можно хранить в поле типа Integer перед массивом символов.

> Использовал бы ShortString и не парился, но нужен Юникод, туды его в качель..

путаем белое и горячее. Что мешает хранить UTF8 в ShortString?

[Lex_Liven]

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

Храни 500 символов и не трать время, диски сейчас огромные, памяти завались, экономить 940 байт можно только в том случае, если планируется хранить миллиарды записей. Чтобы длина не терялась, её можно хранить в поле типа Integer перед массивом символов.

> Использовал бы ShortString и не парился, но нужен Юникод, туды его в качель..

путаем белое и горячее. Что мешает хранить UTF8 в ShortString?

Я и храню, пусть не миллиарды, но миллионы есть. Длину пишу в интежер, если вы невнимательно смотрели описание объекта.

А насчет белого и горячего - ShortString - это ВСЕГДА 1 байт на символ. А кириллица в UTF8 пишется ДВУМЯ байтами.

[GunSmoker]

Я и храню, пусть не миллиарды, но миллионы есть

А зачем такое делать у себя в коде? Почему бы не использовать БД вроде какой-нибудь SQLite?

[veniside]

> Длину пишу в интежер, если вы невнимательно смотрели описание объекта.

каюсь, невнимательно )

> ShortString - это ВСЕГДА 1 байт на символ. А кириллица в UTF8 пишется ДВУМЯ байтами.

да хоть десятью, какая разница?