myUtf8Encode neu in lowlevelunit.pas

1 files changed, 14 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 3472049..3977484 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -94,6 +94,7 @@ function mirrorBits(b: byte): byte; overload;
 
 function zusammenfassen(s1,s2: string): string;
 function intervallAusrollen(s: string): string;
+function myUtf8Encode(s: string): string;
 
 var
   base64Chars: array[0..63] of char;
@@ -832,6 +833,19 @@ begin
   result:=trim(result);
 end;
 
+function myUtf8Encode(s: string): string;
+const
+  falsch:  string = #$c4#$d6#$dc#$df#$e4#$f6#$fc;
+  richtig: array[1..7] of string = ('Ä','Ö','Ü','ß','ä','ö','ü');
+var
+  i: longint;
+begin
+  result:=s;
+  for i:=1 to length(richtig) do
+    while pos(falsch[i],result)>0 do
+      result:=leftStr(result,pos(falsch[i],result)-1)+richtig[i]+rightStr(result,length(result)-pos(falsch[i],result));
+end;
+
 var b: byte;
 
 begin