Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
ВнизГлупость конечно, но... Найти похожие ветки
← →
cypher (2002-04-16 23:40) [0]... сохранить текст в Memo можно с помошью фу-ции SaveToFile,
а как его попроще сохранить в DOS-кодировке? AnsiToOEM ведь не очень приятно, она АПИшная, да и работает с указателями... =)))
... или я совсем офигел? =)
← →
Ra (2002-04-17 05:54) [1]совсем;)
var dest:pchar;
begin
GetMem(dest,Length(memo1.text)+1);
//конвертаем в дос
CharToOem(pchar(memo1.Text),dest);
memo1.Text:=dest;
// сохраняем
memo1.Lines.savetofile("text.dos");
//конвертаем назад в вин
OemToChar(pchar(memo1.Text),dest);
memo1.text:=dest;
FreeMem(dest);
end;
← →
cypher (2002-04-17 08:22) [2]Ыыых.... похоже никуда от этого не денешься =))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c