Witam,
Jak dokonać zamiany znaków z iso-8859-2 na windows-1250 w stringu ?
0
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.