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

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

Delphi控件源码

开发平台：

Delphi

CallForm.pas：源码内容
  1. unit CallForm;
  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.     BtnDoubleString: TButton;
  18.     BtnDoublePChar: TButton;
  19.     EditSource: TEdit;
  20.     EditDouble: TEdit;
  21.     Label3: TLabel;
  22.     Label4: TLabel;
  23.     Bevel1: TBevel;
  24.     Bevel2: TBevel;
  25.     procedure BtnDoubleClick(Sender: TObject);
  26.     procedure BtnTripleClick(Sender: TObject);
  27.     procedure BtnDoubleStringClick(Sender: TObject);
  28.     procedure BtnDoublePCharClick(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  35. var
  36.   Form1: TForm1;
  38. implementation
  40. {$R *.DFM}
  42. {functions of the Delphi DLL}
  43. function Double (N: Integer): Integer;
  44.   stdcall; external 'FIRSTDLL.DLL';
  45. function Triple (N: Integer): Integer;
  46.   stdcall; external 'FIRSTDLL.DLL';
  47. function DoubleString (S: string; Separator: Char): string;
  48.   stdcall; external 'FIRSTDLL.DLL';
  49. function DoublePChar (BufferIn, BufferOut: PChar;
  50.   BufferOutLen: Cardinal; Separator: Char): LongBool;
  51.   stdcall; external 'FIRSTDLL.DLL';
  53. procedure TForm1.BtnDoubleClick(Sender: TObject);
  54. begin
  55.   SpinEdit1.Value := Double (SpinEdit1.Value);
  56. end;
  58. procedure TForm1.BtnTripleClick(Sender: TObject);
  59. begin
  60.   SpinEdit2.Value:= Triple (SpinEdit2.Value);
  61. end;
  63. procedure TForm1.BtnDoubleStringClick(Sender: TObject);
  64. begin
  65.   // call the DLL function directly
  66.   EditDouble.Text :=
  67.     DoubleString (EditSource.Text, ';');
  68. end;
  70. procedure TForm1.BtnDoublePCharClick(Sender: TObject);
  71. var
  72.   Buffer: string;
  73. begin
  74.   // make the buffer large enough
  75.   SetLength (Buffer, 1000);
  76.   // call the DLL function
  77.   if DoublePChar (PChar (EditSource.Text), PChar (Buffer), 1000, '/') then
  78.     EditDouble.Text := Buffer;
  79. end;
  81. end.