Hallo, ich habe mir Folgendes ausgedacht, es funktioniert zuerst mal. Nach den vielen Pleiten vielleicht ein Fortschritt. In meinem Archiv gefunden.
Delphi-Quellcode:
function Ex195(
const s:
string):
string;
var // Die deutschen Umlaute + ß werden falsch dargestellt (Unicode)
po: Integer;
ch: Char;
// Durch Ausprobieren habe ich die Codes herausbekommen
begin // erst #195 dann Zeichen ... - 16-10-2008
Result:=s;
// Utf8ToAnsi() von Delphi macht genau das
po:=Pos(#195,Result);
while (Length(Result) > 0)
and (po > 0)
do begin
ch:=Result[Po+1];
System.Delete(Result,po,2);
case ch
of
#$84: ch:='
Ä';
#$96: ch:='
Ö';
#$9C: ch:='
Ü';
#$A4: ch:='
ä';
#$B6: ch:='
ö';
#$BC: ch:='
ü';
#$9F: ch:='
ß';
else ch:='
.'
end;
System.Insert(ch,Result,po);
po:=Pos(#195,Result,Succ(po))
end
end;
Willie.