[zNk]

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

[Aristarh Dark]

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

[zNk]

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

Код:

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

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

[Aristarh Dark]

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

Код:

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 делай так:

Код:

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;