Włodzimierz
Zylbertal
badacz, wynalazca,
doradca,
popularyzator,
nauczyciel, pu...
Temat: Usuwanie polskich znaków ze String -a
Sądziłem, że prosta procedurafunction BezPolskich(wej: AnsiString): String;
var
i: integer;
begin
for i:=1 to Length(wej) do
begin
if wej[i]='ą' then wej[i]:='a';
if wej[i]='Ą' then wej[i]:='A';
if wej[i]='ć' then wej[i]:='c';
if wej[i]='Ć' then wej[i]:='C';
if wej[i]='ę' then wej[i]:='e';
if wej[i]='Ę' then wej[i]:='E';
if wej[i]='ł' then wej[i]:='l';
if wej[i]='Ł' then wej[i]:='L';
if wej[i]='ń' then wej[i]:='n';
if wej[i]='Ń' then wej[i]:='N';
if wej[i]='ó' then wej[i]:='o';
if wej[i]='Ó' then wej[i]:='O';
if wej[i]='ś' then wej[i]:='s';
if wej[i]='Ś' then wej[i]:='S';
if wej[i]='ż' then wej[i]:='z';
if wej[i]='Ż' then wej[i]:='Z';
if wej[i]='ź' then wej[i]:='z';
if wej[i]='Ź' then wej[i]:='Z';
end;
BezPolskich:=(wej);
end;
zadziała. Ale nie działa, polskie znaki przechodzą przez nią nienaruszone, mimo wcześniejszej konwersji wejściowego łańcucha do Ansi poleceniem MojString:=UTF8ToAnsi(MojString);
No i głupi jestem. Jest w Sieci trochę takich procedur... ale wszystko pod Delphi, które nie stosuje UTF8 tak rygorystycznie jak Lazarus! Macie jakiś pomysł?