Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

кодировка 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.034 c
15-1177701326
koha
2007-04-27 23:15
2007.05.27
"Редактор диска своими руками" вопрос для kerk


15-1177436016
Kerk
2007-04-24 21:33
2007.05.27
Дайте чтоль похвалюсь :))


6-1163767232
Layner
2006-11-17 15:40
2007.05.27
Как грамотно отключить от IdTCPServer всех IdTCPClient


5-1154350780
DevilDevil
2006-07-31 16:59
2007.05.27
Свойство Font


6-1163759207
Gavrila
2006-11-17 13:26
2007.05.27
TIdMessage - определить, что письмо помечено на удаление?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский