Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];

Вниз

кодировка DOS   Найти похожие ветки 

 
Konus   (2007-04-28 13:44) [0]

нужно создавать файл с текстом в кодировке DOS
каким образом можно переводить символы в эту кодировку?

вообще задача такая: есть программа, в ней поля, которые заполняются и созраняются в текстовый файл, но только теперь файл должен быть в дос-кодировке

как это возможно?


 
Konus   (2007-04-28 13:45) [1]

если это важно, то работаю в delphi5


 
Сергей М. ©   (2007-04-28 13:45) [2]


> каким образом можно переводить символы в эту кодировку?


CharToOEM()


 
Konus   (2007-04-28 14:00) [3]

спасибо, буду пробовать


 
Leonid Troyanovsky ©   (2007-04-29 21:37) [4]


> Konus   (28.04.07 14:00) [3]

> спасибо, буду пробовать

А чего его пробывать?
Сало - оно и есть сало.

--
Regards, LVT.


 
Konus   (2007-05-07 06:32) [5]

подскажите, пожалуйста, есть ли эта процедура в D5?
если нет, как можно реализовать в D5?


 
{RASkov} ©   (2007-05-07 07:05) [6]

> подскажите, пожалуйста, есть ли эта процедура в D5?

Если вопрос про CharToOEM, то эта функция не в Delphi.., а в user32.dll.


 
Konus   (2007-05-07 07:17) [7]

елки палки, а как ее вызвать-то? :)
строчку кода приведите в пример, пожалуйста


 
Konus   (2007-05-07 07:35) [8]

m1.lines.strings[i]:=CharToOEM(pchar(m1.lines.strings[i]));
не достаточно параметров


 
PZ   (2007-05-07 07:46) [9]

Function StrToOem(const AnsiStr: string): string;
begin
 SetLength(Result, Length(AnsiStr));
 if Length(Result) > 0 then
{$IFDEF WIN32}
   CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
{$ELSE}
   AnsiToOemBuff(@AnsiStr[1], @Result[1], Length(Result));
{$ENDIF}
end;

Function OemToAnsiStr(const OemStr: string): string;
begin
 SetLength(Result, Length(OemStr));
 if Length(Result) > 0 then
{$IFDEF WIN32}
   OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
{$ELSE}
   OemToAnsiBuff(@OemStr[1], @Result[1], Length(Result));
{$ENDIF}
end;


 
Konus   (2007-05-07 07:53) [10]

большое спасибо, очень помогли


 
Anatoly Podgoretsky ©   (2007-05-07 22:18) [11]

> Konus  (07.05.2007 07:35:08)  [8]

В справке два параметра и оба переменные.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.038 c
15-1178039529
Scaltro
2007-05-01 21:12
2007.05.27
Помогите, очень нужент крак к программе Actual Title Buttons 4.3


3-1173052260
Ш-К
2007-03-05 02:51
2007.05.27
Вставка записи при уникальном индексе.


15-1177855274
Cj
2007-04-29 18:01
2007.05.27
Статья на сайт


6-1163746643
Pack
2006-11-17 09:57
2007.05.27
Узнать значение параметра в Webbrowser


15-1177900456
ctudent
2007-04-30 06:34
2007.05.27
WoW





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский