| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 
 |  
   procedure TForm1.AdditionClick(Sender: TObject);
var
  monObjet, result   : System.Object;
  arguments  : array [1..2] of System.Object;
  SampleAssembly : Assembly;
  tType: System.Type;
begin
    SampleAssembly := Assembly.LoadFrom('c:\dllAddition.dll');
    tType := SampleAssembly.GetType('dllAddition.dllAddition1');
    monObjet := SampleAssembly.CreateInstance('dllAddition.dllAddition1');
  arguments[1] := a1.Text;
    arguments[2] := a2.Text;
  result := Ttype.InvokeMember('Add', BindingFlags.InvokeMethod, nil, monObjet, arguments);
    resultAdd.Text := string(result);
end; | 
Partager