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 函式(過程)名
方法二： 函式(過程)名
vb編實現順序查詢的函式過程 呼叫此過程在有元素的陣列中
private sub form load dim b 15 as string b 3 a b 9 b b 11 c msgbox searchvalinarray b,b end sub private function searchvalinarray byref a as string,by...
matlab中如何呼叫自己編寫的函式
根據我的經驗 如果你的程式放在當前資料夾下面 指令碼檔案和自編函式在同一資料夾下 或者是matlab的預設搜尋路徑下，是可以直接被呼叫的。除此之外的函式呼叫就要用到乙個命令 增加matlab的函式庫搜尋命令，這樣的話，matlab在預設路徑搜尋完之後，就會去訪問使用者自定義的路徑。假設你的主程式.m...
c中子類建構函式中如何呼叫父類建構函式
四捨 入 class a class b a 子類的子類呼叫父類中的隱藏成員 一般情況，在呼叫父類成員時子2代和子1代沒什麼區別。但如果子1代隱藏父類成員，情況就會不同。像上面的情況，son隱藏了父類的成員變數name和成員方法tellname 如果再有乙個類grandson繼承son，那grand...