Ord liefert bei AnsiString falsche Werte (63 / $3F)

[moelski]

Moin !

Ich habe hier gerade ein ganz merkwürdiges Problem. Und vielleicht steh ich auch gerade auf der Leitung, aber so ganz begreife ich das gerade nicht.

Wir nehmen uns einen AnsiString (Delphi 2010).
data : AnsiString; Dann weisen wir dem String was zu:
data := Chr(213)+chr(153); oder eben auch (was an der Sache ja nix ändert):
data := Chr(213)+chr($99); Wir starten den Code und setzen uns einen Brechpunkt nach der Zuweisung.
Dann mal data auswerten mittels STRG+F7.

Jetzt geben wir folgende Zeile ein: ord(data[1])
Wie zu erwarten liefert das 213.

Jetzt geben wir ein : ord(data[2])
Und erhalten als Ergebnis 63 (Hex 3F).

Kann mir mal jemand sagen was ich falsch mache?

[Luckie]

Konsolenprogramm:

Delphi-Quellcode:

var
  data: AnsiString;
begin
  data := Chr(213)+chr(153);
  Writeln(Ord(data[1]));
  Writeln(Ord(data[2]));
  Readln;
end.

Ausgabe:

Code:

213
153

Passt.

[moelski]

Schön wärs ja ...

[Luckie]

Also bei mir funktioniert es mit Delphi 7.

[moelski]

In 2007 gehts bei mir auch.

Ich denke das ist irgendein UniCode Problem.
Aber eine genau Erklärung habe ich nicht

[moelski]

Mit data: String; gehts auch in Delphi 2010.

Aber kann ja nich sein das ... Ich will ja extra AnsiString nutzen um Unicode Problemen aus dem Weg zu gehen.
(Geht um Datenempfang von RS232).

[moelski]

Moin !

Kann mir das jemand erklären? (wie gesagt Delphi 2010)

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var data : AnsiString;
      x, y : Byte;
begin
  try
    for x := 0 to 15 do begin
      for y := 0 to 15 do begin
        data := Chr(x*16 + y);
        Write(Format('%3d', [Ord(Data[1])])); Write(' ');
      end;
      Writeln;
    end;
    Readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[mleyen]

[DCC Warnung] Project1.dpr(18): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'Char' zu 'AnsiString'
Du musst AnsiChar() statt Chr() verwenden.

[Bummi]

strange ... ein workaround

Delphi-Quellcode:

var
  data:AnsiString;
  a,b:Byte;
begin

 a := 216;
 b := $88;
 SetLength(data,2);
 move(a,data[1],1);
 move(b,data[2],1);

EDIT

mleyen hat die richtige Lösung

[moelski]

Moin !

Zitat:

Du musst AnsiChar statt Chr verwenden.

Na schau mal einer kuck

Habe ich mir doch gedacht das da irgendwo noch ein Unicode Haken ist

Danke für die Aufklärung.