Dann mußt du natürlich auch PAnsiChar verwenden
Delphi-Quellcode:
function ConvertStr(const Input: AnsiString): AnsiString; Overload;
var
i: Integer;
begin
for i:=1 to Length(Input) do
//Result[i] := AnsiChar(Ord(Input[i]) xor $FF);
Result[i] := AnsiChar(not Ord(Input[i]));
end;
Delphi-Quellcode:
function ConvertStr(const Input: WideString): WideString; Overload;
var
i: Integer;
begin
for i:=1 to Length(Input) do
//Result[i] := WideChar(Ord(Input[i]) xor $FFFF);
Result[i] := WideChar(not Ord(Input[i]));
end;
Bei dieser Art mußt du Wohl oder Übel jede Variante einzeln behandeln und dann natürlich auch im Code fest Vorgeben was du nutzen willst.
> AnsiString, WideString/UnicodeString und auf keinen Fall String
denn dieses ergibt jeweils untershciedliche Ergebnisse