Wort und Umlaute etc...

[marabu]

Stimmt, D5 kennt AnsiToUtf8() noch nicht.

Vielleicht magst du es mit diesen beiden Funktionen probieren?

Delphi-Quellcode:

function UTF8Decode(const s: string): WideString;
var
  n: Integer;
begin
  n := MultiByteToWideChar(CP_UTF8, 0, @s[1], Length(s), nil, 0);
  SetLength(Result, n);
  MultiByteToWideChar(CP_UTF8, 0, @s[1], Length(s), @Result[1], n);
end;

function UTF8Encode(const ws: WideString): string;
var
  n: Integer;
begin
  n := WideCharToMultiByte(CP_UTF8, 0, @ws[1], Length(ws), nil, 0, nil, nil);
  SetLength(Result, n);
  WideCharToMultiByte(CP_UTF8, 0, @ws[1], Length(ws), @Result[1], n, nil, nil);
end;

Getippt und nur einmal getestet.

ShowMessage(Utf8Decode(Utf8Encode('äöüÄÖÜß'))); Freundliche Grüße