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).

Delphi-Quellcode:

data : AnsiString;

Dann weisen wir dem String was zu:

Delphi-Quellcode:

data := Chr(213)+chr(153);

oder eben auch (was an der Sache ja nix ändert):

Delphi-Quellcode:

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). :pale:

Kann mir mal jemand sagen was ich falsch mache? :oops:

[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]

Delphi-Quellcode:

[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 :-D

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

Danke für die Aufklärung.

[himitsu]

Delphi-Quellcode:

Chr(213)+chr($99)

oder Sonstwas erzeugt einen UnicodeString ... dieser wird dann "konvertiert" an den AnsiString übergeben.
(ob diese Konvertierung nun schon im Kompiler geschieht, ist egal)

Tja, und in dieser Konvertierung liegt dein Problem.

versuch mal:

Delphi-Quellcode:

var data: RawByteString;
data := #$00D5#$0099;

Die 00 sind wichtig, da siehe 85 und 0085 in http://www.delphipraxis.net/130228-a...nd-keines.html


PS: Ist dir mal aufgefallen, was die #$3F überhaupt ist?
Das ?, welches Delphi als Ersatzzeichen nimmt, wenn ein Zeichen nicht umgewandelt (Unicode>Ansi) werden konnte.

[p80286]

@Himitsu
Wenn ich Dich richtig verstanden habe, sind die Zeichen $0082..$008C im Unicode nicht definiert.
Wenn ich dann eine Unicode-Ansi-Konvertierung vornehmen lasse, bekomme ich also ein/das Ersatzzeichen geliefert?

Gruß
K-H

[himitsu]

Diese sind im Unicode vorhanden, aber bei Umwandlung in deinen String passten sie da nicht rein.

Im ANSI sind die Zeichen zwischen #$80 und #$FF (#128 bis #255) von der verwendeten Codepage abhängig und stimmen nicht unbedingt mit den Unicodezeichen in #$80 bis #$FF überein.


Dein 216 wird wohl als UnicodeChar anerkannt und dann nach Ansi umcodiert.

Eventuell wird es auch als ANSI erkannt, nach Unicode umgewandelt und dann nochmal zurück nach ANSI, bei der Überweisung an den AnsiString (und hier dann jeweils mit anderen Codepages).

Wo jetzt genau das Problem liegt, kann ich auch nicht sagen, aber irgendwo gibt es halt mindestens eine Umwandlung und da paßt dein Char eben nicht ganz rein.


Der RawByteString ist zwar auch eine Art AnsiString, aber ohne Codepage-Konvertierungen, weswegen er für Binärdaten besser geeignet ist.
Auch gibt es in Delphi auch einen Unterschied zwischen #$00xx und #$xx. Obwohl es beides die selben Werte sind, wird es unterschiedlich erkannt. Das Eine als AnsiChar und das Andere als WideChar, wärend #xxx vermutlich direkt als UnicodeChar erkannt wird.

Was du noch versuchen könntest, wäre der schon genannte Weg über ein ByteArray oder eventuell sowas.

Delphi-Quellcode:

SetLength(data, 2);
data[1] := #$D5;
data[2] := #$99;

SetLength(data, 2);
data[1] := #$00D5;
data[2] := #$0099;

SetLength(data, 2);
Byte(data[1]) := $D5;
Byte(data[2]) := $99;

Bei einzelnen Chars hat Delphi weniger/garkeine Umwandlungen verbaut (nicht so wie bei den Strings) ... jetzt mußt du nur noch eine Variante finden, welche Funktioniert.
Letzteres dürfte vermutlich laufen, da es sich dort um Byte/Integer und keine AnsiChar handelt, also gibt es keinerlei Umwandlungen.