Hallo allemaal,
Ik heb een aparte unit met een functie en die wil ik aanroepen met een functie als parameter.
Code:
unit: My_Unit;
interface
uses // vanalles
type TFuncParam = function(MyParam : TParam): TResult;
type TMyClass = class
constructor create(MaakWat);
procedure DoeWat (fn : TFuncParam);
end;
implementation
constructor TMyClass.Create(Maakwat);
procedure TMyClass.DoeWat(fn : TFuncparam);
begin
Myval := fn(MyVal);
end;
en dan zou ik dit in mn mainunit aan willen roepen met een functie in de mainunit als parameter.
Code:
function TMainform.DoeIets(MyParam : TParam):TResult;
begin
result := waanzinnig;
end;
procedure TMainform.ButtonClick(Sendr: TObject);
var fn : TFuncParam;
begin
MyClass.DoeWat(fn(DoeIets?);
end;
Maar geen idee hoe?
Jullie wel?
Bookmarks