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

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

[himitsu]

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.