кодировка 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]

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

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

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

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