Delphi 2009 Strings

[Alex_ITA01]

Hallo zusammen,
ich habe eine Frage zu folgenden Beispielcode.
Ich bekomme unter Delphi 2006 ein anderes Result als unter RAD 2009.
Wie kann ich die Funktion so umbauen, dass sie sich genauso verhält wie unter Delphi 2006?

Delphi-Quellcode:

function  ConvertStr (Input: String): String;
var
  i              : Integer;
  HlpStr         : String;
begin
  HlpStr     := Input;
  for i:=1 to Length(HlpStr) do
  begin
    HlpStr[i] := Chr (Ord(HlpStr[i]) xor $FF);
  end;
  Result  := HlpStr;
end;

Ich hoffe ihr versteht mein Problem.
Viele Grüße
Alex

[jfheins]

Quick&Dirty Lösung: AnsiString (oder RawByteString) statt String benutzen

[sirius]

Bei Ansistring wird der String ja konvertiert. Das dürfte Probleme geben. Ich würde hier einfach einen Zeiger und eine Länge übergeben und dann mit PByte o.ä. durchgehen.

[Alex_ITA01]

Wenn ich aus String AnsiString mache, meckert der Compiler inkompatible Typen AnsiChar und Char an...
Das hatte ich leider auch schon probiert. Hatte allerdings nur die Variable "HlpStr" geändert auf AnsiString.
Viele Grüße

[mkinzler]

Char -> AnsiChar

[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

[jbg]

Zitat von himitsu:

Delphi-Quellcode:

    //Result[i] := WideChar(Ord(Input[i]) xor $FFFF);
    Result[i] := WideChar(not Ord(Input[i]));

Dabei kann ein ungültger UTF16 String entstehen, bei dem dann ggf. einige Funktionen abbrechen oder einfach '' zurückliefern. Das war auch schon beim AnsiString so, nur nutz man in diesen Breiten (String-CodePage) keine MultiByte-Zeichen.

Zitat:

auf keinen Fall String denn dieses ergibt jeweils untershciedliche Ergebnisse

Klar, wenn man nur mit $FF xor-t. Aber bei "not" ist der Code dann zwischen Delphi 2007 und 2009 kompatibel wenn man "String" einsetzt. (Zudem: Mit WideString fährt man mit angezogender Handbremse)

[himitsu]

ich sag's mal so, das rechnet genauso wie alles andere hier ... und nirgendwo wird UTF beachtet.

Zitat:

(Zudem: Mit WideString fährt man mit angezogender Handbremse)

klar, aber so funktioniert es auch, wo UnicodeString noch nicht bekannt ist