БОЛЬШОЙ FAQ ПО DELPHI



как прочитать русский текст ms-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;

или

procedure TForm1.FormCreate(Sender: TObject);
var
i,j: integer;
s:string;
c:set of char;
begin
c:=['А'..'Я','а'..'я'];
memo1.Lines.LoadFromFile('c:\11.txt');
for i:=0 to memo1.Lines.Count do
begin
s:=memo1.Lines.Strings[i];
for j:=1 to length(s) do if chr(ord(S[j])+64) in c then s[j]:=chr(ord(S[j])+64);
memo1.Lines.Strings[i]:=s;
end;
end;



--------------------------------------------------------------------------------




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ