Текст в поток (Stream) и снова в текст

[Alexandr17-10]

Как можно текст и RichEdit превратить в поток Stream для того чтобы записать в ини в виде потока и из потока превратить снова в текст. Просто текст очень большой может быть. А я хочу его записывать в виде маленькой строки. Запись будт идти в ини в этой процедуре

procedure TMain_Application.WriteChangeLang(LangSection: string);
var
  //âðåìåííàÿ ïåðåìåííàÿ äëÿ âûáîðêè âñåõ êîìïîíåíòîâ
  i, i1: Integer;
  //ñòðîêîâàÿ ïåðåìåííàÿ äëÿ ïîëó÷åíèÿ êàòàëîãà ñ exe
  ProgramPath: string;
begin
  if ComponentCount <> 0 then begin
    //Ïîëó÷àåì êàòàëîã ãäå ëåæèò çàïóùåííûé exe
    ProgramPath := ExtractFileDir(Application.ExeName);
    //Ãàðàíòèðîâàííî óñòàíàâëèâàåì ïîñëåäíèé ñèìâîë
    if ProgramPath[Length(ProgramPath)] <> '\' then
      ProgramPath := ProgramPath + '\';
    //Ïîäãîòàâëèâàåì èíè ôàéë
    LangIniFile:=TIniFile.Create(ProgramPath+'Ðåäàêòîð Libx\lang.ini');
    LangIniFile.WriteString(LangSection, name, Caption);
    for i:=1 to ComponentCount do begin
      if Components[i-1].ClassType = TButton then
        LangIniFile.WriteString(LangSection,
          name+'-->'+Components[i-1].name, (Components[i-1] as TButton).Caption);
      if Components[i-1].ClassType = TLabel then
        LangIniFile.WriteString(LangSection,
          name+'-->'+Components[i-1].name, (Components[i-1] as TLabel).Caption);
      if Components[i-1].ClassType = TEdit then
        LangIniFile.WriteString(LangSection,
          name+'-->'+Components[i-1].name, (Components[i-1] as TEdit).Text);
      if Components[i-1].ClassType = TTabSheet then
        LangIniFile.WriteString(LangSection,
          name+'-->'+Components[i-1].name, (Components[i-1] as TTabSheet).Caption);
      if Components[i-1].ClassType = TRadioButton then
        LangIniFile.WriteString(LangSection,
          name+'-->'+Components[i-1].name, (Components[i-1] as TRadioButton).Caption);
      if Components[i-1].ClassType = TCheckListBox then
        if (Components[i-1] as TCheckListBox).Items.Count > 0 then
          For i1:=0 to (Components[i-1] as TCheckListBox).Items.Count-1 do
            LangIniFile.WriteString(LangSection,
              name+'-->'+Components[i-1].name+'-->Items-->Strings['+inttostr(i1)+']', (Components[i-1] as TCheckListBox).Items.Strings[i1]);
      if Components[i-1].ClassType = TListBox then
        if (Components[i-1] as TListBox).Items.Count > 0 then
          For i1:=0 to (Components[i-1] as TListBox).Items.Count-1 do
            LangIniFile.WriteString(LangSection,
              name+'-->'+Components[i-1].name+'-->Items-->Strings['+inttostr(i1)+']', (Components[i-1] as TListBox).Items.Strings[i1]);
      if Components[i-1].ClassType = TAction then
        LangIniFile.WriteString(LangSection,
          name+'-->'+Components[i-1].name, (Components[i-1] as TAction).Caption);
    end;
    LangIniFile.Free;
  end;
end;

[Alter]

Маленькой строкой не получится.

HEX

 // поток в текст
function BinaryStreamToText(Value: TStream):string;
var
  Text: string;
  Stream: TMemoryStream;
begin
  Result := '';
  if not Assigned(Value) then Exit;
  SetLength(Text, (Value.Size - Value.Position) * 2);
  if Length(Text) > 0 then
  begin
    if Value is TMemoryStream then
      Stream := TMemoryStream(Value)
    else
      Stream := TMemoryStream.Create;

    try
      if Stream <> Value then
      begin
        Stream.CopyFrom(Value, Value.Size - Value.Position);
        Stream.Position := 0;
      end;
      BinToHex(Pointer(Integer(Stream.Memory) + Stream.Position)^, PChar(Text),
               Stream.Size - Stream.Position);
    finally
      if Value <> Stream then
        Stream.Free;
    end;
  end;
  Result := Text;
end;

 // восстанавливает из текста, созданного BinaryStreamToText, в поток 
function ReadBinaryStreame(const S: string; Value: TStream):Integer;
var
  Text: string;
  Stream: TMemoryStream;
  Pos: Integer;
begin
  Result := 0;
  Text := S;
  if Text <> '' then
  begin
    if (Value is TMemoryStream) then
      Stream := TMemoryStream(Value)
    else
      Stream := TMemoryStream.Create;

    try
      Pos := Stream.Position;
      Stream.SetSize(Stream.Size + Length(Text) div 2);
      HexToBin(PChar(Text), Pointer(Integer(Stream.Memory) + Stream.Position)^,
               Length(Text) div 2);
      Stream.Position := Pos;
      if Value <> Stream then
        Value.CopyFrom(Stream, Length(Text) div 2);
      Result := Stream.Size - Pos;
    finally
      if Value <> Stream then
        Stream.Free;
    end;
  end
   else
  Result := 0;
end;

Base64

function StrToBase64(Buf: string): string;
function Base64ToStr(B64: string): string;

[Аватар]

Маленькой строкой не получится.

Можно сжать только упаковщиком. HEX и BASE64 только увеличат размер

[Alter]

Увеличат, зато одной строкой) Сжатие строки, это как выберет способ. В DFM файлах почему то размер не мешает хранить там строки и картинки.

[Человек_Борща]

Можно использовать TStringStream и не заморачиваться со всякими кодированиями и перекодированиями.

[Аватар]

Увеличат, зато одной строкой)

Не понимаю термина "одной строкой". Ну интерпретирует отображающая программа некоторые коды как перевод каретки и строки. Ну и что?

[Alexandr17-10]

Я тут по эксперементировал

Для загрузки
if Components[i-1].ClassType = TRichEdit then begin
        strem:=TMemoryStream.Create;
          LangIniFile.ReadBinaryStream(LangSection,
          name+'-->'+Components[i-1].name,strem);
          (Components[i-1] as TRichEdit).Lines.LoadFromStream(strem);
        strem.Free;
      end;
Для записи
if Components[i-1].ClassType = TRichEdit then begin
        strem:=TMemoryStream.Create;
          (Components[i-1] as TRichEdit).Lines.SaveToStream(strem);
          strem.Seek(0, soFromBeginning);
          LangIniFile.WriteBinaryStream(LangSection,
          name+'-->'+Components[i-1].name,strem);
        strem.Free;
      end;

Ну правдо большой строкой записывает а так то что нужно