[zNk]

Люди, разрабатываю модуль для лёгкого создания собственного формата файлов. Нужна помощь, как мохранить string в TMemoryStream?

[Aristarh Dark]

Приводи код, показывай где не получается.

[zNk]

Короче, я пытался записывать таким способом, опишу только основную логику:

Код:

1 2 3 4 5 6 7 8 9

<b>var</b>   f: TMemoryStream   s: String <b>begin</b>   f := TMemoryStream.Create;   f.Write(s, SizeOf(s));   f.SaveToFile(filename);   f.Free; <b>end</b>.

При дальнейшем считывании ошибка... Что делать?

[Aristarh Dark]

И пишет скорее всего 4 байта?
Попробуй так:

Код:

1 2 3 4 5 6 7 8 9

var   f: TMemoryStream;   s: ShortString; begin   f := TMemoryStream.Create;   f.Write(s, SizeOf(s));   f.SaveToFile(filename);   f.Free; end.

если получится, то подумай почему.

[zNk]

0_o А ShortString = String?

[Aristarh Dark]

ShortString=String[255]

[Holy]

Если хочешь записать строку String (AnsiString) в Stream делай так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   f: TMemoryStream;   S: AnsiString; begin   f := TMemoryStream.Create;   try     // Указываем с какой точки и сколько байт занести в Stream     f.Write(S[1], Length(S));     f.SaveToFile(filename);   finally     f.Free;   end; end;