function PL (lancuch : string) : string;
var tmp : string;
i : integer;
begin
for i := 1 to lancuch.Length do
case lancuch[i] of
'¹' : tmp:=tmp + 'ą';
'æ' : tmp:=tmp + 'ć';
'ê' : tmp:=tmp + 'ę';
'³' : tmp:=tmp + 'ł';
'ñ' : tmp:=tmp + 'ń';
'ó' : tmp:=tmp + 'ó';
'œ' : tmp:=tmp + 'ś';
'¿' : tmp:=tmp + 'ż';
'Ÿ' : tmp:=tmp + 'ź';
'¥' : tmp:=tmp + 'Ą';
'Æ' : tmp:=tmp + 'Ć';
'Ê' : tmp:=tmp + 'Ę';
'£' : tmp:=tmp + 'Ł';
'Ñ' : tmp:=tmp + 'Ń';
'Ó' : tmp:=tmp + 'Ó';
'Œ' : tmp:=tmp + 'Ś';
'¯' : tmp:=tmp + 'Ż';
'' : tmp:=tmp + 'Ź';
else tmp:=tmp+lancuch[i];
end;
Result := tmp;
end;
W Lazarusie mam komunikat "constant and case types do not match". W Delphi jest okej.