Готовый модуль для конвертирования текстовых строк из DOS кодировки в Windows и обратно

unit RUSCP;
 
INTERFACE
 
function WIN1251toOEM866(s : string) : string;
function OEM866toWIN1251(s : string) : string;
 
IMPLEMENTATION
 
{
*  WIN1251toOEM866
*  конвертируем из кодировки Windows в кодировку DOS.
}
function WIN1251toOEM866(s : string) : string;
var b, i : byte;
    ret  : string;
 
begin
  ret := '';
  for i:=1 to length(s) do
  begin
    b:= ord(s[i]);
         if (b>=$c0) and (b<=$df)
         or (b>=$e0) and (b<=$ef) then b := b - $40
    else if (b>=$f0) and (b<=$ff) then b := b - $10
    else if (b =$a8)              then b := $f0
    else if (b =$b8)              then b := $f1;
    ret := ret + Chr(b);
  end;
  WIN1251toOEM866 := ret;
end;
 
{
*  OEM866toWIN1251
*  конвертируем из кодировки DOS в кодировку Windows.
}
function OEM866toWIN1251(s : string) : string;
var b, i : byte;
    ret  : string;
 
begin
  ret := '';
  for i:=1 to length(s) do
  begin
    b:= ord(s[i]);
     if (b>=$80) and (b<=$9f) 
     or (b>=$a0) and (b<=$af) then b := b + $40
    else if (b>=$e0) and (b<=$ef) then b := b + $10
    else if (b =$f0)              then b := $a8
    else if (b =$f1)              then b := $b8;
    ret := ret + Chr(b);
  end;
  OEM866toWIN1251 := ret;
end;
 
begin
end.