Как прочитать русский текст MS-DOS 2
| Hам не заменят ДОС'а пpостоту заманчивые окны пополамов! |
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;
|