Utf16String mit AnsiCodes nach Utf16String mit UTF16Codes konvertieren

[himitsu]

Ich würde versuchen in der Komponente den Fehler beheben zu lassen (oder selbst beheben).

Kommt die Funktion aus einer DLL?
Was sagt denn ShowMessage(StringElementSize(Value).ToString + ' ' + StringCodePage(Value).ToString); ?
1 1252 = eine ANSI-Codepage, z.B. für Deutsch
2 1200 = Codepage für UTF-16BE

Ist das ein alter Quellcode (vor D2009) und "blos" die Signatur des Events ist falsch? (String statt AnsiString)
Aber eigentlich sollte der FormDesigner diesen Fehler bemerken, wenn man die Unit speichert.

Du kannst mit TEncoding.ANSI.GetString die enthaltenen Bytes in einen String kopieren,
oder via SetString.

Delphi-Quellcode:

var
  A: AnsiString;
  S: string;
begin
  A := '123';
  Pointer(S) := Pointer(A);  // nicht nachmachen ... ich weiß was ich tu :D
  ShowMessage(StringElementSize(S).ToString + ' ' + StringCodePage(S).ToString);

  SetString(S, PAnsiChar(@S[1]), {Length(S) * 2}4);
  S := TrimRight(S);  //if (S <> '') and (S[High(S)] = #0) then Delete(S, High(S), 1);
end;

Trim, denn was passiert, wenn es eine ungerade Zeichenanzahl ist?

Nicht wundern, der Debugger zeigt es hier "richtig" an, denn er beachtet die StringCodePage, und auch Length ließt hier die "richtige" Länge aus.

Und ja, High statt Length, denn bei Strings zählt es bei 1 los, also ist das Selbe,
außer bei {$ZEROBASEDSTRINGS ON} , z.B. im Android, wo es bei 0 beginnt zu zählen.