先在type裡宣告，然後在implementation裡寫函式體，也在這裡呼叫函式。比如，我在type裡宣告functionfunction1():integer;，這樣就聲明瞭一個function1()函式。然後在implementation裡functionTFormMain.function1():integer;beginend;這裡寫函式體。呼叫時用function1()，這樣就可以了。

你這個是在資料夾中遍歷查詢特定名稱的檔案並返回查詢到的檔案數的函式對吧，

放一個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

最後彈出對話方塊顯示在視窗中告訴使用者找到幾個符合內容的檔名數量