1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34:
| function osz(s:unicodestring):utf8string;begin s:=utf8encode(s); s:= ReplaceStr(s,#195+#159,'ß'); s:= Replacestr(s,#195+#161,'á'); s:= Replacestr(s,#195+#160,'à'); s:= Replacestr(s,#195+#169,'é'); s:= Replacestr(s,#195+#168,'è'); s:= Replacestr(s,#195+#179,'ó'); s:= Replacestr(s,#195+#137,'É'); s:= Replacestr(s,#195+#154,'Ú'); s:= Replacestr(s,#195+#173,'í'); s:= Replacestr(s,#195+#189,'ý'); s:= Replacestr(s,#195+#184,'ø'); s:= Replacestr(s,#195+#129,'Á'); s:= Replacestr(s,#195+#145,'Ñ'); s:= ReplaceStr(s,#195+#164,'ä'); s:= ReplaceStr(s,#195+#182,'ö'); s:= ReplaceStr(s,#195+#188,'ü'); s:= ReplaceStr(s,#195+#132,'Ä'); s:= ReplaceStr(s,#195+#150,'Ö'); s:= Replacestr(s,#195+#156,'Ü'); s:= Replacestr(s,#276,'Ä'); s:= Replacestr(s,#294,'Ö'); s:= Replacestr(s,#207,'Ü'); s:= Replacestr(s,#308,'ä'); s:= Replacestr(s,#326,'ö'); s:= Replacestr(s,#332,'ü'); s:= Replacestr(s,#10#13,''); result :=s; end; |