Chr(224) Delphi 2007 <-> Delphi 2009

[ImpactMG]

Hallo,

ich habe das Problem, dass Chr(xx) unter Delphi 2009 etwas anderes liefert als Chr(xx) unter Delphi 2007.

Delphi-Quellcode:

var
  c : AnsiChar;
begin
  c := AnsiChar(Chr(224));
  ShowMessage(c);
end;

Gibt es eine Möglichkeit unter Delphi 2009 den gleichen Wert zu einer Zahl zu generieren, die Chr() in Delphi 2007 zurückgegeben hat?

Das eigentliche Problem das ich habe sind Daten die mit der Funktion:

Delphi-Quellcode:

function BinaryStrToHexStr(aBinary : AnsiString) : AnsiString;
var
  i : Integer;
begin
  Result := '';
  for i := 1 to Length(aBinary) do
    Result := Result + IntToHex(Ord(aBinary[i]), 2);
end;

geschrieben, und nun mit der Funktion:

Delphi-Quellcode:

function HexStrToBinaryStr(aHex : AnsiString) : AnsiString;
var
  i : Integer;
begin
  Result := '';
  for i := 1 to (Length(aHex) div 2) do begin
    Result := Result + Chr(:= StrToint('$' + Copy(aHex,i*2-1,2)));
  end;
end;

gelesen werden sollen. Es handelt sich um verschlüsselte Texte.

[mkinzler]

Welchen Typ hat aHex?

[Der.Kaktus]

Zitat:

Zitat von mkinzler

Welchen Typ hat aHex?

ist ein Funktionparameter ;-) (Ansistring)

[mkinzler]

Man heute bin ich blind :oops:

[Assertor]

Zitat:

Zitat von ImpactMG

ich habe das Problem, dass Chr(xx) unter Delphi 2009 etwas anderes liefert als Chr(xx) unter Delphi 2007.

Delphi-Quellcode:

var
  c : AnsiChar;
begin
  c := AnsiChar(Chr(224));
  ShowMessage(c);
end;

Bei mir liefert dieser Source unter D2006 und D2009 beide male den Accent grave (à). Da muß an anderer Stelle etwas nicht stimmen...

Gruß Assertor

[Zacherl]

Vielleicht trotzdem ähnliches Problem wie bei mir damals:
http://www.delphipraxis.net/internal...nicode+zacherl

[ImpactMG]

das ist ja lustig!

bei mir liefert ein Testprojekt mit 1 form und einem button und:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  c : AnsiChar;
begin

  c := Chr(224);
  ShowMessage(c);
end;

* unter Delphi 2007 ein 'ŕ'
* unter Delphi 2009 ein 'a'. im Debugger wird aber Chr(224) als 'à' ausgewertet

kann sich (oder mir ;-) ) das jemand erklären?

[SirThornberry]

ja, ich kann es mir erklären. D2009 ist glaub ich Unicodefähig und chr liefert dir dann vielleicht das ganze als Unicode zurück. Immerhin ist chr eine Funktion. vielleicht klappt es ja wenn du die Zahl direkt castest also char(zahl) sofern sizeof(char) noch 1 ist.

[mkinzler]

Nein Chr liefert auch in D2009 einen Ansistring zurück

[Uwe Raabe]

Zitat:

* unter Delphi 2007 ein 'ŕ'
* unter Delphi 2009 ein 'a'. im Debugger wird aber Chr(224) als 'à' ausgewertet

Also bei mir liefert sowohl Delphi 2007, als auch Delphi 2009 ein "á" (auch im Debugger)! Ist im Übrigen das gleiche, was auch #224 liefert - in beiden Versionen.

Frage: Warum nimmst du nicht gleich HexToBin/BinToHex aus Classes.pas?

[Hawkeye219]

Hallo,

Zitat:

Zitat von mkinzler

Nein Chr liefert auch in D2009 einen Ansistring zurück

Die Standardfunktion Chr sollte in Delphi 2009 ein Unicode-Zeichen liefern:

Delphi-Quellcode:

var
  ch : Char;
begin
  ch := Chr($0815);
  ShowMessage (IntToHex(Ord(ch), 4));
end;

Zugegeben - die Hilfedatei ist in diesem Punkt leider keine große Hilfe...

Gruß Hawkeye

[Uwe Raabe]

Zitat:

Zitat von Hawkeye219

Hallo,

Zitat:

Zitat von mkinzler

Nein Chr liefert auch in D2009 einen Ansistring zurück

Die Standardfunktion Chr sollte in Delphi 2009 ein Unicode-Zeichen liefern:

Delphi-Quellcode:

var
  ch : Char;
begin
  ch := Chr($0815);
  ShowMessage (IntToHex(Ord(ch), 4));
end;

Beides ist richtig! Je nach Ziel liefert Chr entweder einen 1- oder 2-Byte Wert zurück. Im Falle eines 1-Byte Ziels und eines 2-Byte Parameter gibt es dann auch eine Warnmeldung.

[mkinzler]

Die IDE auch nicht

[SirThornberry]

wie sieht es aus wenn man castet mit char(zahl) anstelle die compilermagic funktion chr(zahl) zu verwenden?

[ImpactMG]

Danke für die Tips.

BinToHex und HexToBin liefern gerau das gleiche Ergebnis wie meine Funktionen.

Habe inzwischen den Grund für das Problem gefunden, allerdings noch keine Lösung.

Auf meinem System war die Defaultcodepage auf Polnisch eingestellt (Systemsteuerung/Regions- und Sprachoptionen/Erweitert/Sprachversion für nicht-Unicodefähige Programme). Wenn ich sie auf Deutsch zurückstelle, bekomme ich wie Ihr ein 'á'.

Chr arbeitet also Systemcodepage-abhängig. Lösung mit Casten werde ich ausprobieren

[Uwe Raabe]

Zitat:

Zitat von ImpactMG

BinToHex und HexToBin liefern gerau das gleiche Ergebnis wie meine Funktionen.

Hatte ich auch nicht anders erwartet, sollte nur Arbeit sparen...

Zitat:

Zitat von ImpactMG

Auf meinem System war die Defaultcodepage auf Polnisch eingestellt (Systemsteuerung/Regions- und Sprachoptionen/Erweitert/Sprachversion für nicht-Unicodefähige Programme). Wenn ich sie auf Deutsch zurückstelle, bekomme ich wie Ihr ein 'á'.

Chr arbeitet also Systemcodepage-abhängig.

Ich denke eher, daß die Umwandlung in den UnicodeString das CodePage-Problem hat. Aber du kannst die verwendete CodePage für AnsiStrings ja im Programm festlegen:

Delphi-Quellcode:

type
  GermanString = type AnsiString (1252);
  PolishString = type AnsiString (1250);
var
  German: GermanString;
  Polish: PolishString;
begin
  German := chr(224);
  Polish := chr(224);
  ShowMessage(German + '<>' + Polish);
end;

Wird nur AnsiString angegeben, verwendet Delphi die aktuelle Windows-CodePage. Leider geht das nicht mit AnsiChar, nur mit AnsiString;