Ich programmiere gern und oft in Assembler.
Um einen in einer Assemblerroutine erzeugten und auf dem Stack abgelegten String in eine Variable des Typs String zu kopieren will ich die in systems enthaltene Routine _LStrAsg benutzen.
Problem : Die Routine, obwohl im Interface von System deklariert, läßt sich nicht aufrufen.
Meine bisherige Lösung :

Ich rufe in FormCreate die Prozedur _CopyStr auf (damit sie Compiliert wird) und dann die Prozedur GetLStrAsgAddress, die aus dem Compilat von _CopyStr die Adresse von _LStrAsg holt und speichert.

Weiß jemand eine elegantere Methode, um an die Adresse von _LStrAsg heranzukommen ?
Herzlichen Dank.

zusammenfalten · markieren

Delphi-Quellcode:

var LStrASG:Cardinal;
const DummiStr:String='Dummi';

PROCEDURE _CopyStr(var s:string);
begin
   s:=DummiStr;
end;

FUNCTION GetLStrAsgAddress:boolean;
asm
      xor eax,eax // Result=False
      lea edx,_CopyStr+$10; // da steht call _LStrAsg
      cmp byte [edx],$E8 // Steht das da wirklich ('E8'='call'?
      jne @End
      inc edx // Zeigt auf die relative Adresse von _LStrAsg
      add edx,[edx] // Offset addieren
      add edx,4 // + 1 DWord für die Adresse
      mov LStrAsg,edx // speichern
      inc eax // Result=True
@End:
end;

Du kannst die Funktion in Assembler direkt mit "CALL System.@LSTRASG" aufrufen.

Christian.
super Tip. Funktioniert hervorragend.
Vielen Dank für Deine Hilfe.
Gruß, Klaus