Перекодировка русского текста из Windows кодировки в Dos кодировку
function Win2Dos(Text: string) : string;
var EncodedText: string;
ch: char;
chCode: integer;
i: integer;
begin
EncodedText := ' ' ;
for i := 1 to Length(Text) do
begin
ch := Text[i];
chCode := ord(Ch);
if chCode > 128 then
if chCode < ord( 'р' ) then
chCode := chCode - ord( 'А' ) + 128
else
chCode := chCode - ord( 'р' ) + 224;
EncodedText := EncodedText + chr(chCode);
end;
Win2Dos := EncodedText;
end;
Статья Перекодировка русского текста из Windows кодировки в Dos кодировку раздела Синтаксис Кодировки может быть полезна для разработчиков на Delphi и FreePascal.
