Прочесть текстовый файл DOS

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

Если попытаться открыть текст, написанный в DOS, не меняя свойство Charset, то получится набор непонятных символов. Например в Windows символ с кодом 174 - это значок "®", а в DOS это обычная "о". Свойство Charset, установленное в OEM_CHARSET, заставляет выводить именно "о", если код символа 174. Эта программа читает файлы DOS.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Font.Charset := OEM_CHARSET;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName)
end;

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

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

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