chr() bzw char() umkehren

[FAlter]

Hi,

obwohl es nicht zum eigentlichen Problem gehört:

Sieh dir mal im CPU-Fenster an, wie es umgesetzt wird:

Delphi-Quellcode:

var
  b: byte;
  c: char;


b := $21; //entspricht '!'
c := chr(b);

//übersetzung:
asm
  //vor der Anweisung wird eax auf null gesetzt
  //b := $21
  mov al, $21

  // c := chr(b)
  mov ebx, eax
end;

Offensichtlich wird keine Funktion aufgerufen, sondern einfach der Wert kopiert, wie es auch passiert wäre, wenn du b als Char gehabt hättest bzw, gecastet hättest.


Oder du durchsuchst einfach mal die System.pas nach chr. Das wird dort zwar genutzt, aber nirgends implementiert. Weil es sich um keine echte Funktion handelt, die müsste irgendwo implementiert sein

Du kannst damit auch nicht machen, was du bei anderen Funktionen kannst, mit dem Zeiger rumspielen z. B.

Delphi-Quellcode:

function Test(x: Byte): Char;
begin
  Result := Char(x);
end;

var
  FuncPtr: Pointer;
begin
  FuncPtr := @Test; //Kein Fehler!
  FuncPtr := @Chr;  //Fehler!
end;

Ansonsten bitte ich jetzt darum, dass wir und nicht hier weiter darüber streiten, jetzt, nachdem ich das letzte Wort hatte Egal, mehr sag ich dazu nicht.

Mfg
FAlter