Konwersja znaków

0

Witam,
Jak dokonać zamiany znaków z iso-8859-2 na windows-1250 w stringu ?

0
snapshoot napisał(a)

Witam,
Jak dokonać zamiany znaków z iso-8859-2 na windows-1250 w stringu ?

procedure Tchild.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
{poniżej polskie znaki windows są zamieniane na ich odpowiedniki w ISO}
if ord(key)=185 then key:=chr(177);
if ord(key)=165 then key:=chr(161);
if ord(key)=156 then key:=chr(182);
if ord(key)=140 then key:=chr(166);
if ord(key)=143 then key:=chr(172);
if ord(key)=159 then key:=chr(188);
end; 

A racja ty pytałeś odwrotnie. To zmień na odwrót.

1 użytkowników online, w tym zalogowanych: 0, gości: 1