. Windows-1251, KOI8-R, ISO-8859-5 DOS. , , , 160 - "", 150 "" . . ( ). . , , .

.


procedure TForm1.Button1Click(Sender: TObject);
var
code1, code2: TCode;
s: string;
c: char;
i: integer;
chars: array [char] of char;
str: array [TCode] of string;
begin
case ComboBox1.ItemIndex of
1: code1 := koi;
2: code1 := iso;
3: code1 := dos;
else code1 := win;
end;
case ComboBox2.ItemIndex of
1: code2 := koi;
2: code2 := iso;
3: code2 := dos;
else code2 := win;
end;
s := Memo1.Text;
Str[win] := '';
Str[koi] := '';
Str[iso] := '¹¸?ƒº¾³¿¼šœž?¢Ÿ';
Str[dos] := ' ?¡¢ƒ£¥ˆ¨Šª"Œ?Ž?¯?''˜šœ?žŸ';
for c := #0 to #255 do
Chars[c] := c;
for i := 1 to Length(Str[win]) do
Chars[Str[code2][i]] := Str[code1][i];
for i := 1 to Length(s) do
s[i] := Chars[s[i]];
Memo2.Text := s;
end;


: DOS-Windows-Koi8 »»