delphi中如何调用函数过程

[sadasfaff]

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

        Button1.Caption :=function GetFileCount;

end;

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

end.

在button上如何调用GetFileCount这个函数过程

[不得闲]

不明觉厉，直接调用不就好了么，感觉好像是来搅乱的。。。 procedure TForm1.Button1Click(Sender: TObject); begin Button1.Caption :=function GetFileCount; end; 改成 procedure TForm1.Button1Click(Sender: TObject); begin Button1.Caption :=inttostr(GetFileCount); end;

[lyhoo163]

错误： function GetFileCount(srcPath, srcFileName: string): Integer; 定义在FormCreat事件 中， Button事件是不能调用的。 修正： 你应该将它拉出来，放在 private 或 public { Public declarati 均可： 单元代码：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function GetFileCount(srcPath, srcFileName: string): Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.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;

end.

[lyhoo163]

编译，验证时，使用一个U盘。在C:\盘目录文件太多，会执行很长时间。 U盘的不同的目录，拷贝若干个1.txt文件。 就可以验证了。比如U盘是I：

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
  n:=GetFileCount('I:', '1.txt');
  showmessage('有'+inttostr(n)+'个同名文件');
end;

[sadasfaff]

来人啊啊啊啊

[sadasfaff]

召唤大神啊啊啊 啊啊

[满面尘，鬓如霜，何处话凄凉]

看点书吧！！！！！！！！！！！！！！