unit Unit1;
![](/Images/OutliningIndicators/None.gif)
interface
![](/Images/OutliningIndicators/None.gif)
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ComObj,
StdCtrls, DscEdit;
![](/Images/OutliningIndicators/None.gif)
type
TForm1
=
class(TForm)
ed1: TDsEdit;
ed2: TDsEdit;
btnADD: TButton;
ed3: TDsEdit;
procedure
btnADDClick(Sender: TObject);
private
{
Private declarations
}
public
{
Public declarations
}
end
;
![](/Images/OutliningIndicators/None.gif)
var
Form1: TForm1;
![](/Images/OutliningIndicators/None.gif)
implementation
![](/Images/OutliningIndicators/None.gif)
{
$R *.DFM
}
![](/Images/OutliningIndicators/None.gif)
procedure
TForm1.btnADDClick(Sender: TObject);
var
myCounter, mReturn: variant;
begin
myCounter :
=
CreateOleObject(
'
TestCom.Class1
'
);
mReturn :
=
myCounter.ADD(ed1.Text, ed2.Text);
![](/Images/OutliningIndicators/None.gif)
ed3.Text :
=
VarToStr(mReturn);
end
;
![](/Images/OutliningIndicators/None.gif)
end
.
转载于:https://www.cnblogs.com/safezone/articles/1263919.html