1樓：火籬笆
procedure tform1.button1click(sender: tobject);
begin
getfilecount(srcpath, srcfilename )
end;
srcpath, srcfilename必須賦值
function getfilecount(srcpath, srcfilename: string): integer;必須在本文或者其他uses單元中定義，才能呼叫
formcreate 也不完整，應該是
procedure tform1.formcreate(sender: tobject);
begin
end;
2樓：匿名使用者
你這個是在資料夾中遍歷查詢特定名稱的檔案並返回查詢到的檔案數的函式對吧，
放一個tedit控制元件，在控制元件中設定你需要查詢的檔名
user 中增加引用filectrl單元
procedure tform1.button1click(sender: tobject);
var i:integer;
sdir:string;
begin
if selectdirectory('選擇需要查詢的資料夾','c:\',sdir) then begin
i:=getfilecount(sdir,edit1.text);
showmessage('共找個'+inttostr(i)+'個檔案');
end;
selectdirectory方法可以彈出選擇資料夾的對話方塊讓你選擇需要查詢的資料夾，它的第一個引數是對話方塊的標題內容，第二個引數是預設開啟的路徑，第三個引數是返回的你選擇的路徑
getfilecount是你的主要函式，第一個引數是查詢的路徑，第二個引數是需要查詢的檔名，返回已個integer型別的值給i
最後彈出對話方塊顯示在視窗中告訴使用者找到幾個符合內容的檔名數量
3樓：匿名使用者
procedure proa（）；
begin
end；
procedure buttonclick（sender：tobject）；
begin
proa（）；
end；
在vba中如何呼叫過程與函式？
4樓：墨汁諾
一、直接呼叫或者call 過程名 call 函式名就可以了，比如private sub commandbutton1_click()msgbox "你呼叫了commandbutton1_click過程"
end sub
private sub commandbutton2_click()call commandbutton1_clickend sub
二、如果有引數的話需要帶上引數，比如
private sub commandbutton1_click()call msgstr("這是過程/函式呼叫示例")end sub
sub msgstr(str as string)msgbox str
end sub
5樓：匿名使用者
方法一： call 函式(過程)名
方法二： 函式(過程)名
js，使用函式過程中,寫不寫new的區別
new宣告的是一個物件,而不是函式 而直接寫函式,那就不是物件,是無法呼叫物件的屬性的。如果不new，直接呼叫yourfunc，不做物件的初始化 如果new，先初始化一個物件，然後呼叫yourfunc作為初始化函式。初始化物件的時候，會把所有yourfunc.prototype的屬性方法，copy一...
Excel如何sql中呼叫自定義函式
如果是sql server資料庫，那麼做法如下 dim rst as adodb.recordsetset rst connection.execute select dbo.myfunction me.field myfunction是自定義函式，後面括號裡面的是引數。 搖籃了有 用遊標 decl...
C 呼叫pow函式，C 中pow函式
累得像豬一樣 在vc 6.0中原型為double pow double x,double y 標頭檔案 cmath 功能 計算x的y次冪。返回值 x不能為負數且y為小數，或者x為0且y小於等於0，返回冪指數的結果。返回型別 double型，int，float會給與警告！舉例 include incl...