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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Лозунг компании Microsoft на презентации Windows ME: "ДОС - НАФИГ!"

Если попытаться открыть текст, написанный в 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;