[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]

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

[Last Living Man]

Блокнот не понимает кодировку ASCII... Посмотри просмотрщиком тотала, если он не распознает кодировку, поставь вручную...

Еще полезная ф-я для мемо, чтоб она понимала ASCII:

Код:

Memo1.Font.Handle := GetStockObject(OEM_FIXED_FONT);

либо

Код:

Memo1.Font.Handle := GetStockObject(ANSI_FIXED_FONT);

[Kaktuz]

Сообщение от Last Living Man

Блокнот не понимает кодировку ASCII... Посмотри просмотрщиком тотала, если он не распознает кодировку, поставь вручную...

Кок раз то все наоборот получается. Стандартный блокнот правильно открывает текст и показывает все в одну строку (как положено), а вот AkelPad от Total открывает как и в Memo (не правильно) Определяя одиночный символ типа #10 или #13 как полноценный перенос что приводит уже к преобразованию с одного символа в два символа.
Да и эти две команды как-то ни как не повлияли на результат. Если я правильно понял, нужно использовать одну из предложенных команд перед сохранением текста.

Возможно есть способ прочитать текст с файла сразу в Edit типа String в одну строку, может прокатит.

[angvelem]

Честно говоря, я не понял цели этого мазохизма.

[lmikle]

вопрос в том какие версии винды и дельфи и какие региональные настройки стоят в винде.

[Kaktuz]

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

Честно говоря, я не понял цели этого мазохизма.

для шифрования данных.

Нашел вот еще такой способ, но он некоторые символы не читает.

Код:

var a:TextFile;
     b:String;
begin
AssignFile(a,'C:\Text.txt');
{$I-}
Reset(a);
{$I+}
ReadLn(a,b);
Memo1.Text:=b;

В целом ответ я знаю. Знаю как сделать, но не знаю как прописать... Нужно использовать HEX преобразователь. Читать файл как hex записывать данные в переменную (получится что-то вроде DF0DD0CBD3CC20D7CFD5...) после чего это все преобразовывается уже в нужные символы (Я□ФЛУМ□ ЧП...)
Начало было тут...

[angvelem]

Используй Read, ReadLn читает строку, или BlockRead.

[Bargest]

ReadLn - это сокращение от ReadLine, читает строку.
А вот еще способ:

Код:

var f:file;
     s:string;
...
AssignFile(f,'C:\Text.txt');
Reset(f,1);
SetLength(s,FileSize(f));
BlockRead(f,pointer(s)^,FileSize(f));
CloseFile(f);

Как-то так должно сработать и загрузить все байты из файла в строку. Хотя может где-то и ошибся.
Especially for masochists.

[Last Living Man]

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

Да и эти две команды как-то ни как не повлияли на результат. Если я правильно понял, нужно использовать одну из предложенных команд перед сохранением текста.

Не знаю почему у тебя не катит. Я использовал эти ф-и при написании сборщика файлов (в кодировке ASCII как правило от кривых досовских программ, используемых в нашей организации), с функцией просмотра... Мемо начинает правильно отображает ASCII файлы, но помоему шрифт изменить не удастся... Если надо могу исходник дать (DLL).
Да кстати! файл в ASCII надо сохранять через тип text, если ты его делаешь с нуля. Так проще, т.к. все "невидимые" символы сами проставляются...