Thema: Delphi Offset von einem Label

Einzelnen Beitrag anzeigen

brechi

Registriert seit: 30. Jan 2004
823 Beiträge
 
#1

Offset von einem Label

  Alt 15. Mär 2006, 13:21
Mit Delphi 7 funktioniert folgender (logischer) Code nicht.
Ich hatte die Frage zwar schon vor einem Jahr mal im DF gepostet,
aber da hier ja einige Leute direkt Kontakt zu Borland haben schreib ich sie hier nochmal rein.

Delphi-Quellcode:
var p: Pointer;

label hallo;
begin
  asm // funktioniert 'p' enthält die absolute Adresse
    PUSH OFFSET hallo
    POP DWORD PTR [p]
  end;

  p := @hallo; //funktioniert nicht, Delphi verweigert die Kompilierung, obwohl es 'eigentlich' möglich sein müsste

  hallo:
end;
Ist das Problem inzwischen bei Delphi05/06 gelöst. Wird es eventl. irgendwie anders Unterstützt?
Gibt es eine Möglichkeit, dass dies irgendwann mal umgesetzt wird?

Auch wenn Labels nicht benutzt werden sollten, für den ein oder anderen Code hat dies doch Vorteile.
Wäre deshalb mal nett zu hören was ihr davon haltet.
  Mit Zitat antworten Zitat