//--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" #include "sampledll.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Func1(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Func2(Edit1->Text); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { int a,b; a=StrToIntDef(Edit2->Text,0); b=StrToIntDef(Edit3->Text,0); Button3->Caption = Func3(a,b); } //---------------------------------------------------------------------------