DCE: Zeiger zeigen oder was ist hier die Format Frage ?

[paule32.jk]

Hallo,
Ich möchte gerne mit Format einen Zeiger formatieren, so dass dieser in der Console als hexadezimaler Wert dargestellt wird.
Folgende zwei Codes habe ich:

Delphi-Quellcode:

constructor QChar.Create;
begin
  inherited Create;
  WriteLn('1111');
  ClassName := PChar('QChar');
  ptr_cc := ctor_QChar(PChar('ctor_QChar'), stQChar);
  WriteLn(Format('0x%p',[ptr_cc]));
  WriteLn('3333');
end;

Bei den oben stehenden Code, werden die letzten beiden Zeilen nicht erreicht bzw. es erscheint keine Ausgabe am Bildschirm.

Delphi-Quellcode:

constructor QChar.Create;
begin
  inherited Create;
  WriteLn('1111');
  ClassName := PChar('QChar');
  ptr_cc := ctor_QChar(PChar('ctor_QChar'), stQChar);
  WriteLn(ptr_cc);
  WriteLn('3333');
end;

Bei den oben stehenden Code, werden die letzten beiden Zeilen erreicht bzw. es erscheint die Ausgabe des Pointers sowie die 4 dreien.

Woran kann das liegen, das Delphi das wegoptimiert ?
Ist aber dann nicht die feine englische Art.

[jaenicke]

Wegoptimiert wird das sicher nicht. Hast du einmal zeilenweise durch debuggt, ob Fehler auftreten? Sind neben den Zeilen blaue Punkte?

Du könntest auch IntToHex verwenden, um die hexadezimale Ausgabe zu erhalten.

Nebenbei:
Wenn Namen für Klassen nicht mit dem gewohnten T anfangen, macht das den Quelltext wirklich schwer lesbar.

[paule32.jk]

Danke.
- das mit den IntToHex funktioniert sehr gut
- frage mich aber trotzdem, warum denn Format nicht funktioniert - ist das noch 32-Bit ?

[jaenicke]

Zitat von paule32.jk:

- frage mich aber trotzdem, warum denn Format nicht funktioniert - ist das noch 32-Bit ?

Wie ich schon schrieb:

Zitat von jaenicke:

Wegoptimiert wird das sicher nicht. Hast du einmal zeilenweise durch debuggt, ob Fehler auftreten? Sind neben den Zeilen blaue Punkte?

[freimatz]

Und eingestellt, dass Delphi bei Exceptions anhält?