Konwersja znaków

Odpowiedz Nowy wątek
2006-08-25 11:15
snapshoot
0

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

Pozostało 580 znaków

2006-08-25 11:55
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.


Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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