delphi中如何调用函数过程

2024-11-19 02:20:10

推荐回答（3个）

回答（1）：

你这个是在文件夹中遍历查找特定名称的文件并返回查找到的文件数的函数对吧，
放一个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
最后弹出对话框显示在窗口中告诉使用者找到几个符合内容的文件名数量

回答（2）：

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;

回答（3）：

procedure proA（）；
begin

end；

procedure buttonclick（sender：Tobject）；
begin
proA（）；
end；