开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
CallCppF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

CallCppF.pas：源码内容
  1. unit CallCppF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Spin, ExtCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     BtnDouble: TButton;
  12.     SpinEdit1: TSpinEdit;
  13.     Label1: TLabel;
  14.     BtnTriple: TButton;
  15.     Label2: TLabel;
  16.     SpinEdit2: TSpinEdit;
  17.     BtnAdd: TButton;
  18.     Label3: TLabel;
  19.     Edit1: TEdit;
  20.     Bevel1: TBevel;
  21.     procedure BtnDoubleClick(Sender: TObject);
  22.     procedure BtnTripleClick(Sender: TObject);
  23.     procedure BtnAddClick(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  30. var
  31.   Form1: TForm1;
  33. implementation
  35. {$R *.DFM}
  37. {definition of the functions of the DLL}
  38. function Add (A, B: Integer): Integer;
  39.   stdcall; external 'CPPDLL.DLL' name '@Add$qqsii';
  40. function Double (N: Integer): Integer;
  41.   stdcall; external 'CPPDLL.DLL' name 'Double';
  42. function Triple (N: Integer): Integer;
  43.   stdcall; external 'CPPDLL.DLL';
  45. procedure TForm1.BtnDoubleClick(Sender: TObject);
  46. begin
  47.   SpinEdit1.Value := Double (SpinEdit1.Value);
  48. end;
  50. procedure TForm1.BtnTripleClick(Sender: TObject);
  51. begin
  52.   SpinEdit2.Value := Triple (SpinEdit2.Value);
  53. end;
  55. procedure TForm1.BtnAddClick(Sender: TObject);
  56. begin
  57.   Edit1.Text := IntToStr (Add (
  58.     SpinEdit1.Value, SpinEdit2.Value));
  59. end;
  61. end.