Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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]

Ыыых.... похоже никуда от этого не денешься =))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.02 c
3-94306           Seri                  2002-04-05 07:02  2002.04.29  
Не полная(целая) строка в DBGrid


1-94470           f0rm                  2002-04-16 11:57  2002.04.29  
Отдельный Item listview a закрасить отдельным цветом?


3-94292           hn                    2002-04-08 17:02  2002.04.29  
не работает try


1-94373           Starkom               2002-04-17 12:26  2002.04.29  
можно ли как-либо отловить вызов dll в коде?


1-94362           Aleksandr             2002-04-17 12:19  2002.04.29  
Как сделать, чтобы Делфи нормально ставила курсор на коде?