Преобразования TStringList или TString в TMemoryStream и обратно

[Alexandr17]

procedure TFrmLoginAndPasword.FormClose(Sender: TObject;
  var Action: TCloseAction);
Var i:Integer;
begin
  if ValMaxList > 0 then begin
    Ini:=TMemIniFile.Create(ParamStr(0)+'.DATA.ini');
    ms:=TStream.Create;
    for i := 0 to ValMaxList-1 do begin
      StringListInfo[i].SaveToStream(ms);
      Ini.WriteBinaryStream('-->ParmList-->Texts', 'StreamTexts'+IntToStr(i), ms);
      Ini.WriteString('-->ParmList-->Texts', 'TextList'+IntToStr(i), TextList[i]);
    end;
    ms.Free;
  end;
end;

Ошибка выходит

[min@y™]

Ошибка выходит

Жми скорей сюда.

[Alexandr17]

Ошибка при попытке записи строки в TStream видно размер нао указывать.

[indexx]

Тупо скопировать текст ошибки в пост ни как? Это же базовый инстинкт, почему не сработал?

[min@y™]

Тупо скопировать текст ошибки в пост ни как? Это же базовый инстинкт, почему не сработал?

Форуму просто необходима большая красная кнопка "Заслать скриншот ошибки на форум!!!111".

[Alexandr17]

Я уже исправил

procedure TFrmLoginAndPasword.FormClose(Sender: TObject;
  var Action: TCloseAction);
Var i:Integer;
begin
  if ValMaxList > 0 then begin
    Ini:=TMemIniFile.Create(ParamStr(0)+'.DATA.ini');
    ms:=TMemoryStream.Create;
    for i := 0 to ValMaxList-1 do begin
      StringListInfo[i].SaveToStream(ms);
      ms.Position:=0;
      Ini.WriteBinaryStream('-->ParmList-->Texts', 'StreamTexts'+IntToStr(i), ms);
      Ini.WriteString('-->ParmList-->Texts', 'TextList'+IntToStr(i), TextList[i]);
    end;
    ms.Free;
    Ini.Free;
  end;
end;

Только почмуто вообщенчего не записывает

[min@y™]

посмотри после ms.Position:=0; чему равен ms.size.

[Alexandr17]

равен нулю да дело не в этом там даже строка не записывается а через TIniFile все нормально

[min@y™]

там даже строка не записывается а через TIniFile все нормально

Ini.UpdateFile(); // да неужели?