Форум: "Начинающим";
Текущий архив: 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.043 c
