Куда деваются строки в TStringList

[lux16]

Ну так зашифруй его хотя бы xor'ом, или еще каким нить алгоритмом простейшим

[JekaDefer]

В смысле я и имею ввиду что не должно просматриваться длин исходных строк в зашифрованном и сохраненном в файл тексте)

Мы отошли от темы. Так что по ходу не реально с помощью TStringList сохранять все что угодно? мож как нибудь в нем чтото поменять чтобы он пропускал мимо глаз этот #0 и сохранял все что не попадя?

[lux16]

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

Мы отошли от темы. Так что по ходу не реально с помощью TStringList сохранять все что угодно? мож как нибудь в нем чтото поменять чтобы он пропускал мимо глаз этот #0 и сохранял все что не попадя?

TStrings сохраняет все, даже #0

[JekaDefer]

Ну видимо не все раз не сохраняет TStringList.SaveToFile('sdgs.txt'); )

[3D Hunter]

Выше говорили использовать TFileStream:

procedure Save(const AText:AnsiString);
var
  Lfs:TFileStream;
  Lsz:Integer;
begin
  try
    Lfs:=TFileStream.Create(<имя файла>,fmCreate);//создали файл
    Lsz:=Length(AText);//взяли длину строки
    Lfs.WriteBuffer(Lsz,4);//записали длину строки
    Lfs.WriteBuffer(Pointer(AText)^,Lsz);//записали саму строку
  finally
    Lfs.Free;//обязательно освободили файл
  end;
end;

Использование:

Save(Sl1.Text);

[lux16]

Сообщение от 3D Hunter

Выше говорили использовать TFileStream:

procedure Save(const AText:AnsiString);
var
  Lfs:TFileStream;
  Lsz:Integer;
begin
  try
    Lfs:=TFileStream.Create(<имя файла>,fmCreate);//создали файл
    Lsz:=Length(AText);//взяли длину строки
    Lfs.WriteBuffer(Lsz,4);//записали длину строки
    Lfs.WriteBuffer(Pointer(AText)^,Lsz);//записали саму строку
  finally
    Lfs.Free;//обязательно освободили файл
  end;
end;

Использование:

Save(Sl1.Text);

Опять же в TStrings использовать Text, оно не будет все отдовать, часть данных будет урезаться

[3D Hunter]

Сначала проверьте, а потом утверждайте:

procedure Save(const AText:AnsiString);
var
  Lfs:TFileStream;
  Lsz:Integer;
begin
  try
    Lfs:=TFileStream.Create('D:\data.bin',fmCreate);//создали файл
    Lsz:=Length(AText);//взяли длину строки
    Lfs.WriteBuffer(Lsz,4);//записали длину строки
    Lfs.WriteBuffer(Pointer(AText)^,Lsz);//записали саму строку
  finally
    Lfs.Free;//обязательно освободили файл
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  LsTempList:TStringList;
  i:Integer;
begin
  LsTempList:=TStringList.Create;
  LsTempList.LineBreak:=#0;
  for i:=0 to 99 do
    LsTempList.Add('Z');
  Save(LsTempList.Text);
  FreeAndNil(LsTempList);
end;

Размер файла получается 204 байта: 4 байта длина строки свойства Text, 100 символов "Z" и разделитель символ #0. Никто ничего не обрезает. Придумали проблему

[lux16]

Ну может быть и я не прав, просто я не вижу проблемы с сохранении, как ее видит ТС =)

[JekaDefer]

Да лан подождите я еще не тестировал) ща найду еще траблов) но спс за решение

[Serge_Bliznykov]

Сообщение от 3D Hunter

Выше говорили использовать TFileStream:

+1

Кстати, я на форуме неоднократно предлагал аналогичные примеры.
например, ТУТ
или в ЭТОЙ теме