Hm... also da fällt mir folgendes ein:
Delphi-Quellcode:
// in der DLL
type
TFunctions =
packed record
fGetSyn:
function: TSynEdit;
fGetSth:
function: PChar;
end;
{...}
function DoOperation(fFunc: TFunctions): boolean;
var
Syn: TSynEdit;
begin
Syn := fFunc.fGetSyn;
end;
// in dem Programm
type
TFunctions =
packed record
fGetSyn:
function: TSynEdit;
fGetSth:
function: PChar;
end;
{...}
function TFrmMain.GetCurSyn: TSynEdit;
begin
// ...
end;
{...}
procedure TFrmMain.Button1Click(Sender: TObject);
var
fFuncs: TFunctions;
begin
fFuncs.fGetSyn := GetCurSyn;
end;
Geht das denn so? Eigentlich gibt es da doch immer Probleme, oder?
Könntest du vielleicht ein kleines Beispiel geben (Funktionsnamen stehen oben)?
Chris