Funktion aus Unit in dll benutzen > "undef. Bezeichner"

[d3g]

Delphi-Quellcode:

// in Programm und DLL
type
  TEncryptFunction = function(s: String): String:

// in der DLL
procedure InDLL(f: TEncryptFunction);
begin
  // ...
  ini.WriteString(IntToStr(nummer), f('Name'), f(name)); 
end;

// im Programm
function InDLL(f: TEncryptFunction); external 'my.dll' name 'InDLL';

function verschluesseln(s: String): String;

procedure InCallingProgram();
begin
  InDLL(verschluesseln);
end;

Hab ich jetzt nicht ausprobiert (und hab auch schon lange kein Object Pascal mehr programmiert), aber sollte funktionieren.