Как прочитать русский текст MS-DOS

Delphi , ОС и Железо , DOS и Консоль

Для перекодировки из Win(1251) кодовой страницы в Dos(866) кодовую страницу и обратно используются функции:

• CharToOEM
• OEMToChar
• CharToOEMBuff
• OEMToCharBuff
• OemToAnsi
• AnsiToOem:

Пример чтения текста dos из файла в memo

procedure TForm1.FormCreate(Sender: TObject);
var
  N: PChar;
begin
  memo1.Lines.LoadFromFile('c:\file.txt');
  N := Memo1.Lines.GetText;
  OemToAnsi(N, N);
  Memo1.Lines.Text := StrPas(N);
end;

Статья Как прочитать русский текст MS-DOS раздела ОС и Железо DOS и Консоль может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: DOS и Консоль ::