Перекодировка DOS -> Windows и обратно

← →
Sem (2004-09-12 17:39) [0]

Только начинаю осваиваться в Delphi. Как это делается? Где0то в uke.byt понимаю что очень просто, но найти не могу! Подсоветуйте. Спасибо.

← →
QuasiLamo © (2004-09-12 18:06) [1]

FAQ

← →
QuasiLamo © (2004-09-12 18:29) [2]

QuasiLamo © (12.09.04 18:06) [1]
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Конвертирует строку из кодировки DOS в кодировку Windows и обратно

Конвертирует строку из кодировки DOS в кодировку Windows и обратно

Зависимости: ???
Автор: Сергей, nfkazak@inbox.ru, Краснодар
Copyright: VIP BANK
Дата: 11 сентября 2002 г.
***************************************************** }

function WinToDos(St: string): string;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
AnsiToOem(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;

function DosToWin(St: string): string;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
OemToAnsi(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;

← →
sem (2004-09-12 21:30) [3]

Спасибо!
А вот еще в добавочек:
А как определить что за кодировка DOS или Windows?
Списибо!

Перекодировка DOS -> Windows и обратно Найти похожие ветки