Question

delphi中如何调用函数过程

unit button;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

function GetFileCount(srcPath, srcFileName: string): Integer;

var
FileRec: TSearchrec;
currPath: string;

begin
if srcPath[Length(srcPath)] <> '\' then srcPath := srcPath + '\';
currPath := srcPath + '*.*';
Result := 0;
if FindFirst(currPath, faAnyFile, FileRec) = 0 then
repeat
if ((FileRec.Attr and faDirectory) <> 0) and
(FileRec.Name <> '.') and
(FileRec.Name <> '..') then
begin
Result := Result + GetFileCount(srcPath + FileRec.Name, srcFileName);
end else
if AnsiCompareText(srcFileName, FileRec.Name) = 0 then
Result := Result + 1;
until FindNext(FileRec) <> 0;
end;
begin
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
function GetFileCount(srcPath, srcFileName: string): Integer;

end;

procedure TForm1.Label1Click(Sender: TObject);
begin
label1.caption:='333333'
end;

end.
如何在button1窗体下调用函数过程

Answer 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
最后弹出对话框显示在窗口中告诉使用者找到几个符合内容的文件名数量

Answer 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;

追问

赋值我该赋什么呢

追答

GetFileCount 在某个目录下查找有多少个同名文件的函数

srcPath：是要查找的目录，可以是C：\

srcFileName：是要查找的文件名

procedure TForm1.Button1Click(Sender: TObject);
var
    n:integer;
begin
   n:=GetFileCount('c:\', 'cmd.exe');
   showmessage('有'+inttostr(n)+'个同名的文件');
end;

追问

出现错误

追答

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //
end;
function GetFileCount(srcPath, srcFileName: string): Integer;
var
  FileRec: TSearchrec;
  currPath: string;
begin
  if srcPath[Length(srcPath)] <> '\' then srcPath := srcPath + '\';
  currPath := srcPath + '*.*';
  Result := 0;
  if FindFirst(currPath, faAnyFile, FileRec) = 0 then
    repeat
      if ((FileRec.Attr and faDirectory) <> 0) and
        (FileRec.Name <> '.') and
        (FileRec.Name <> '..') then
      begin
        Result := Result + GetFileCount(srcPath + FileRec.Name, srcFileName);
      end else
      if AnsiCompareText(srcFileName, FileRec.Name) = 0 then
        Result := Result + 1;
    until FindNext(FileRec) <> 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  n:integer;
begin
  n:=GetFileCount('c:\', 'cmd.exe');
  showmessage('有'+inttostr(n)+'个同名的文件');
end; 
procedure TForm1.Label1Click(Sender: TObject);
begin
  label1.caption:='333333'
end;
end.

追问

不对啊 在n：=GetFileCount('c:\','cmd.exe') 那里出现错误

追答

你直接拷过去编译，费劲死了，我编译通过才拷给你的，看都不看

Answer 3

procedure proA（）；
begin

end；

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