[Kaktuz]

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

Код:

Memo2.Lines.SaveToFile(SaveDialog1.FileName);

Сохранятся, ошибок нету. Но вот открывая его потом отдельно в блокноте или загружая его в Memo1 получатся не совсем то что должно быть (см. рис.) сравнение.

Текст является случайным набором ASII символов 1-255 возможно требуется особый метод сохранения. Подскажите пожалуйста.

[angvelem]

В таком наборе, содержатся спец. символы #10 и #13, являющиеся разделителями строк. Попробуй загрузить в StringList, а затем присвоить к Memo как Text.

[Kaktuz]

Код:

procedure TForm1.Button5Click(Sender: TObject);
var
  animals : TStringList;
begin
  animals := TStringList.Create;
  animals.Add('текст');
  Memo2.Text:=(animals[0]);
end;

С преобразованием что-то не пойму как его...
Надо получается считывать данные напрямую с файла...

[angvelem]

Примерно так, если не вру:

Код:

procedure TForm1.Button5Click(Sender: TObject);
var
  animals : TStringList;
begin
  animals := TStringList.Create;
  animals.LoadFromFile(OpenDialog1.FileName);;
  Memo2.Lines.Text := animals.text;
end;

[jie4e]

помогите мне с темой ниже

[Kaktuz]

Тоже самое что и при обычной загрузке...