1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| {$ifdef windows}
function conv(Input : String) : String;
var
tmp : String='';
begin
result:='';
tmp := input;
tmp := StringReplace (tmp, 'æ', #230, [rfReplaceAll]);
tmp := StringReplace (tmp, '', #156, [rfReplaceAll]);
tmp := StringReplace (tmp, 'ø', #248, [rfReplaceAll]);
tmp := StringReplace (tmp, 'å', #229, [rfReplaceAll]);
tmp := StringReplace (tmp, 'à', #224, [rfReplaceAll]);
tmp := StringReplace (tmp, 'á', #225, [rfReplaceAll]);
tmp := StringReplace (tmp, 'â', #226, [rfReplaceAll]);
tmp := StringReplace (tmp, 'ä', #228, [rfReplaceAll]);
(etc. etc ...)
tmp := StringReplace (tmp, '', #159, [rfReplaceAll]);
result := tmp;
end;
{$endif} |
Partager