Zeiger auf Stringerstellungsfunktion gesucht

[himitsu]

Moin Moin,

ein

Delphi-Quellcode:

ZeigerVariable := GewünschteFunktion;
ZeigerVariable := @GewünschteFunktion;

funtioniert ja bei der Compilermagic der System.pas nicht,
aber wenn man den "eigentlichen" Namen kennt (wobei er gern in Pascal und Assembler unterschiedlich heißt), dann geht es oftmals doch,
nur hier beiße ich mir grade die Zähne aus.

Ach ja, es reicht, wenn es für Win32 funktioniert (64 Bit ist leider sowieso nicht möglich, dort wofür Dieses hier verwendet wird)
Drum kann ich hier auch Inline-Assembler nutzen.

Delphi-Quellcode:

procedure TForm4.FormCreate(Sender: TObject);
type
  TSetString = procedure(var S: AnsiString; Buffer: PAnsiChar; CharCount: Integer);
  TFromPChar = procedure(var Dest: AnsiString; Source: PAnsiChar; Length: Integer; CodePage: Word);
var
  FSetString: TSetString;
  FFromPChar: TFromPChar;
begin
  FSetString := System.SetString;   // geht Beides nicht
  FSetString := @System.SetString;  //
  asm
    mov FSetString, System.SetString  // geht, aber ist das System.SetString mit ShortString, anstatt AnsiString
  end;

  // SetString mit AnsiString geht eigentlich auf System._LStrFromPCharLen
  FFromPChar := LStrFromPCharLen;    // geht alles nicht
  FFromPChar := _LStrFromPCharLen;   //
  FFromPChar := @_LStrFromPCharLen;  //
  asm
    mov EAX, _LStrFromPCharLen  // im Assembler kann man oft auf Funktionen der System.pas zugreifen
    mov EAX, LStrFromPCharLen   // aber oft unter einem anderen Namen, nur finde ich Diesen nicht
    mov EAX, @LStrFromPCharLen  //
    mov EAX, @_LStrFromPCharLen
    mov EAX, @@_LStrFromPCharLen
    mov FFromPChar, EAX
  end;

  var A: AnsiString;
  SetString(A, PAnsiChar(''), 0);  // Nachfolgendes macht der Compieler aus dieser Zeile
  // push $00
  // mov edx,$01106400
  // lea eax,[ebp-$08]
  // xor ecx,ecx
  // call $00f3a5a8 // leider steht hier nur ein Zeiger und nicht der Name, aber landet dann bei System._LStrFromPCharLen
end;

Ja, für den Anfang verwende ich erstmal eine Wrapperfunktion ala

Delphi-Quellcode:

//procedure MySetString(var Dest: AnsiString; Source: PAnsiChar; CharCount: Integer);
procedure MyLStrFromPCharLen(var Dest: AnsiString; Source: PAnsiChar; CharCount: Integer; CodePage: Word{=CP_ACP});
begin
  SetString(Dest, Source, CharCount);
end;

und gebe davon den Zeiger weiter.