Текущий архив: 2003.05.19;
Скачать: CL | DM;
Вниз
Вопрос по кодировке текста из DOS - ской в WINDOWS и обратно. Найти похожие ветки
← →
ND (2003-05-07 11:01) [0]Кто занимался чтением текста в кодировке DOS, или текст в кодировке WINDOWS нужно представить в кодировке DOS.
И вообще про все кодировки где можно узнать ?
Если есть предложения и примеры кода буду благодарен.
← →
evvcom (2003-05-07 11:10) [1]А в чем проблема? Формируешь файл с кодами от $20 до $FF, смотришь его в разных кодировках, находишь соответствие и делаешь выводы.
← →
Vovchik_A (2003-05-07 11:25) [2]Uses Windows;
//
//Конвертирование DOS строки в String
//
function OEMToStr(lpc: PChar): String;
Var
PcStr: PChar;
Begin
new(PcStr);
CharToOEM(lpc,PcStr);
Result:=String(PcStr);
Dispose(PcStr);
End;
Если я правильно тебя понял
← →
Roma (2003-05-07 11:35) [3]
uses
Windows;
// DOS -> Win
function StrToOem(const S: string): string;
begin
SetLength(Result, Length(S));
CharToOemBuff(PChar(S), PChar(Result), Length(S));
end; // function StrToOem(const S: string): string;
// Win -> DOS
function OemToStr(const S: string): string;
begin
SetLength(Result, Length(S));
OemToCharBuff(PChar(S), PChar(Result), Length(S));
end; // function StrToOem(const S: string): string;
Надо бы еще проверки на пустую переданную строку добавить...
← →
ND (2003-05-07 11:41) [4]Спаяибо попробую.
Страницы: 1 вся ветка
Текущий архив: 2003.05.19;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.006 c
