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;//egal, ob unicodestring, string,utf8string ...
begin
       s:=utf8encode(s); // braucht man nicht unbedingt - geht auch ohne!

       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,#302,'Ü'); // hä?
       s:= Replacestr(s,#308,'ä');
       s:= Replacestr(s,#326,'ö');
       s:= Replacestr(s,#332,'ü');
       s:= Replacestr(s,#10#13,''); // kein Zeilenumbruch

 result :=s;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function UnicodeToUTF8(CodePoint: cardinal): string;
function UTF8ToSys(const s: string): string; overload; {$IFDEF EnableUTF8RTL}inline;{$ENDIF}
function UTF8ToSys(const AFormatSettings: TFormatSettings): TFormatSettings; overload; {$IFDEF EnableUTF8RTL}inline;{$ENDIF}
function SysToUTF8(const s: string): string; overload;
function SysToUTF8(const AFormatSettings: TFormatSettings): TFormatSettings; overload;
function ConsoleToUTF8(const s: string): string;// converts OEM encoded string to UTF8 (used with some Windows specific functions)
function UTF8ToConsole(const s: string): string;// converts UTF8 string to console encoding (used by Write, WriteLn)
function UnicodeToUTF8(CodePoint: cardinal; Buf: PChar): integer;
function UnicodeToUTF8SkipErrors(CodePoint: cardinal; Buf: PChar): integer;
function UnicodeToUTF8Inline(CodePoint: cardinal; Buf: PChar): integer; inline;
function UTF8ToDoubleByteString(const s: string): string;
function UTF8ToDoubleByte(UTF8Str: PChar; Len: PtrInt; DBStr: PByte): PtrInt;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function osz(s:unicodestring):utf8string;
var i:Integer;
begin
  // für 2teilige Sonderzeichen:
  for i:= 128 to 191 do
    s:= Replacestr(s,#195+Ansichar(i),chr(i+64));

  s:= Replacestr(s,#10#13,''); // Zeilenumbruch auch noch weg

 result :=s;
end;