Delphi 2009 Strings

[himitsu]

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