Как прочитать русский текст MS-DOS
|
- Почему не было Windows 96? - Очень похоже на 69. |
Для перекодировки из 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;
|