请教一条出错信息的解决方法，谢谢各位前辈 ( 积分: 50 )

copyyour · 2005-12-15

[Error] Unit1.pas(78): Unsatisfied forward or external declaration: 'TSearchFileThread.Execute' 'TSearchFileThread.Execute'  就是这个到底是什么，已经uses shellapi了

copyyour · 2005-12-15

[Error] Unit1.pas(78): Unsatisfied forward or external declaration: 'TSearchFileThread.Execute' 'TSearchFileThread.Execute'  就是这个到底是什么，已经uses shellapi了

Mike1234567890 · 2005-12-15

你查看一下 是不是定义的函数头没定义函数体 最快的办法是按Ctrl+Alt+C Delphi会自动帮你完成函数体的轮廓 你只要在它生成的框架内写功能代码就行了

copyyour · 2005-12-15

Ctrl+Alt+C还是不行，因为我是移植另外一个程序过来，基本已经都移植了，不知道还有那些地方有问题。 TSearchFileThread=class(TThread) 就是这地方，出错地方事 procedure SearchFile(DirName: string);

Mike1234567890 · 2005-12-15

你把代码贴上来吧 不然只能猜了

copyyour · 2005-12-15

private    { Private declarations }      public    { Public declarations }  end;  TSearchFileThread=class(TThread)  private    MyFileName: string;    MyFileSize: Integer ;    procedure SearchFile(DirName: string);    procedure DeelWithFile;    procedure SearchComplete;  public    MyDirName: string;  protected    procedure Execute; override;  end; var  Form1: TForm1;  SearchFileThread: TSearchFileThread ;  {总共查找了多少文件}  SumSearchFile, OverSearchFile, MyFileSize: Integer ;  {控制停止开关}  Onoff, OnOff1: Boolean ;  TempString: TStrings ;  ShowFileName, ShowFile: string ; implementation {$R *.dfm}

Mike1234567890 · 2005-12-15

完整一点 private    { Private declarations }      public    { Public declarations }  end; 这部分是做什么的

copyyour · 2005-12-15

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, bsSkinCtrls, bsSkinShellCtrls, StdCtrls,  bsSkinBoxCtrls, Mask, bsSkinTabs, bsDialogs, ImgList, SkinBoxCtrls,  SkinCtrls, bsSkinData, BusinessSkinForm, Menus, bsSkinMenus; type  TForm1 = class(TForm)    bsSkinStdLabel1: TbsSkinStdLabel;    bsSkinButton1: TbsSkinButton;    Edit1: TbsSkinEdit;    bsSkinSelectDirectoryDialog1: TbsSkinSelectDirectoryDialog;    bsSkinPanel1: TbsSkinPanel;    bsSkinGroupBox1: TbsSkinGroupBox;    bsSkinPageControl1: TbsSkinPageControl;    bsSkinTabSheet1: TbsSkinTabSheet;    bsSkinTabSheet2: TbsSkinTabSheet;    bsSkinStatusBar1: TbsSkinStatusBar;    bsSkinTabSheet3: TbsSkinTabSheet;    bsSkinTabSheet4: TbsSkinTabSheet;    bsSkinGroupBox2: TbsSkinGroupBox;    bsSkinListView1: TbsSkinListView;    bsSkinButton2: TbsSkinButton;    bsSkinButton3: TbsSkinButton;    bsSkinButton4: TbsSkinButton;    bsSkinButton5: TbsSkinButton;    bsSkinButton6: TbsSkinButton;    bsSkinScrollBar1: TbsSkinScrollBar;    bsSkinInputDialog1: TbsSkinInputDialog;    ImageList1: TImageList;    bsSkinListView2: TbsSkinListView;    bsSkinScrollBar2: TbsSkinScrollBar;    bsSkinButton7: TbsSkinButton;    bsSkinButton9: TbsSkinButton;    bsSkinButton11: TbsSkinButton;    bsSkinStatusPanel1: TbsSkinStatusPanel;    bsSkinStatusPanel2: TbsSkinStatusPanel;    bsSkinStatusPanel3: TbsSkinStatusPanel;    bsSkinStatusPanel4: TbsSkinStatusPanel;    bsSkinStatusPanel5: TbsSkinStatusPanel;    bsSkinStatusPanel6: TbsSkinStatusPanel;    spSkinStdLabel1: TspSkinStdLabel;    spSkinEdit1: TspSkinEdit;    Animate1: TAnimate;    bsSkinButton12: TbsSkinButton;    bsSkinPopupMenu1: TbsSkinPopupMenu;    N1: TMenuItem;    bsBusinessSkinForm1: TbsBusinessSkinForm;    bsSkinData1: TbsSkinData;    bsSkinButton8: TbsSkinButton;    procedure bsSkinButton1Click(Sender: TObject);    procedure bsSkinButton2Click(Sender: TObject);    procedure bsSkinButton5Click(Sender: TObject);    procedure bsSkinButton6Click(Sender: TObject);    procedure bsSkinButton4Click(Sender: TObject);    procedure bsSkinButton3Click(Sender: TObject);    procedure bsSkinButton11Click(Sender: TObject);    procedure bsSkinButton7Click(Sender: TObject);    procedure bsSkinButton9Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure bsSkinButton12Click(Sender: TObject);    procedure N1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;  TSearchFileThread=class(TThread)  private    MyFileName: string;    MyFileSize: Integer ;    procedure SearchFile(DirName: string);    procedure DeelWithFile;    procedure SearchComplete;  public    MyDirName: string;  protected    procedure Execute; override;  end; var  Form1: TForm1;  SearchFileThread: TSearchFileThread ;  {总共查找了多少文件}  SumSearchFile, OverSearchFile, MyFileSize: Integer ;  {控制停止开关}  Onoff, OnOff1: Boolean ;  TempString: TStrings ;    ShowFileName, ShowFile: string ; implementation {$R *.dfm} procedure TSearchFileThread.DeelWithFile; begin  OverSearchFile := OverSearchFile + 1 ;  form1.bsSkinStatusPanel4.Caption := IntToStr(OverSearchFile );  ShowFile :=  ExtractFileName(MyFileName );  ShowFileName := ExtractFilePath(MyFileName ) + ShowFile;  form1.bsSkinListView2.Items.Add.Caption := ShowFileName ;  form1.bsSkinListView2.Items.Item[form1.bsSkinListView2.Items.Count - 1].SubItems.Text := Inttostr(MyFileSize div 1024 )+' KB'; end; procedure TForm1.bsSkinButton12Click(Sender: TObject); var  I: Integer; begin for i:=0 to bsSkinListView2.Items.Count-1 do   if bsSkinListView2.Items.Item.Checked then     DeleteFile(bsSkinListView2.Items.Item.Caption); end; procedure TSearchFileThread.SearchFile(DirName: String); Var  I, index, s: Integer;  Found: integer;  SearchRec: TSearchRec; begin  while onoff = false  do  begin    exit ;  end;    // while  Found := FindFirst(DirName + '*.*',faAnyFile,searchrec);  while Found = 0 do  begin    {如果加下面这行就是只查找目录，不查找文件}    //if ((SearchRec.Attr and faDirectory) <> 0) then  //directory    begin      if(SearchRec.Name <> '.')and(SearchRec.Name <> '..') then      begin        SearchFile(DirName + SearchRec.Name + '/');        MyFileName := DirName + SearchRec.Name;        {加上判断只显示规定的类型 }        SumSearchFile := SumSearchFile + 1 ;        form1.bsSkinStatusPanel2.Caption := IntToStr( SumSearchFile ) ;        form1.bsSkinStatusPanel6.Caption := MyFileName ;        //if  (ExtractFileName(Application.ExeName ) - ExtractFileExt(MyFileName) = form1.Edit2.Text then        i := 0 ;        index := 0 ;        if OnOff1 = true then        begin          TempString := TStringList.Create ;          OnOff1 := false ;          for I := 0 to form1.bsSkinListView1.Items.Count - 1 do    // Iterate          begin            if form1.bsSkinListView1.Items.Item.Checked then            begin              TempSTring.Insert(index,form1.bsSkinListView1.Items.Item.Caption ) ;              index := index + 1 ;            end;          end;        end;        for I := 0 to TempString.Count - 1  do    // Iterate        begin          if '*'+ExtractFileExt(MyFileName) = TempSTring.Strings then          begin            MyFileSize := searchrec.Size ;            Synchronize(DeelWithFile);          end;        end;    // for      end;    end;    Found := FindNext(SearchRec);  end;  FindClose(SearchRec); end; procedure TSearchFileThread.SearchComplete; begin  Form1.Animate1.Active := False  ;  Application.MessageBox( PChar('搜索完毕，共找到 '+inttostr(OverSearchFile )) , PChar('提示'), MB_OK +     MB_ICONINFORMATION + MB_TOPMOST);  form1.bsSkinStatusPanel6.Caption := '扫描完成......' ; end; procedure TSearchFileThread.Execute; begin  SearchFile(MyDirName);  Synchronize(SearchComplete); end; procedure TForm1.bsSkinButton1Click(Sender: TObject); begin  if bsSkinSelectDirectoryDialog1.Execute then  begin    edit1.Text := bsSkinSelectDirectoryDialog1.Directory ;  end; end; procedure TForm1.bsSkinButton2Click(Sender: TObject); begin  bsSkinListView1.Items.Item[2].Checked := true ;  bsSkinListView1.Items.Item[3].Checked := true ;  bsSkinListView1.Items.Item[4].Checked := true ;  bsSkinListView1.Items.Item[5].Checked := true ;  bsSkinListView1.Items.Item[8].Checked := true ;  bsSkinListView1.Items.Item[9].Checked := true ;  bsSkinListView1.Items.Item[10].Checked := true ;  bsSkinListView1.Items.Item[11].Checked := true ;  bsSkinListView1.Items.Item[12].Checked := true ;  bsSkinListView1.Items.Item[18].Checked := true ;  bsSkinListView1.Items.Item[27].Checked := true ; end; procedure TForm1.bsSkinButton5Click(Sender: TObject); var  SumIndexCheck: Integer ; begin  for sumIndexCheck := 0 to bsSkinListView1.Items.Count - 1 do    // Iterate  begin    bsSkinListView1.Items.Item[SumIndexCheck].Checked := True  ;  end;    // for end; procedure TForm1.bsSkinButton6Click(Sender: TObject); var  I: Integer;  sumIndexCheck: Integer ; begin for sumIndexCheck := 0 to bsSkinListView1.Items.Count - 1 do    // Iterate begin   bsSkinListView1.Items.Item[sumIndexCheck].Checked := false ; end;    // for end; procedure TForm1.bsSkinButton4Click(Sender: TObject); begin  bsSkinListView1.DeleteSelected  ; end; procedure TForm1.bsSkinButton3Click(Sender: TObject); var  InputString: String ;  NewString: ttreenode ;  i: Integer; begin  i := 0;  InputString := bsSkinInputDialog1.InputBox('输入信息','输入新增文件类型','*.*') ;  if inputString = '' then  begin    Application.MessageBox('请正确输入文件类型　！！', PChar('提示'), MB_OK +     MB_ICONINFORMATION + MB_TOPMOST);    exit ;  end  else  begin    for i := 0 to bsSkinListView1.Items.Count - 1 do    begin      if bsSkinListView1.Items.Item.Caption = InputString then      begin        Application.MessageBox('此类型已经存在　！！', PChar('提示'), MB_OK +      MB_ICONINFORMATION + MB_TOPMOST);        exit ;      end ;    end;      //bsSkinListView1.Items.Add.Caption := InputString ;      bsSkinListView1.Items.Add.Caption := InputString ;      InputString := bsSkinInputDialog1.InputBox('输入信息','输入文件类型详细说明','*.*') ;      bsSkinListView1.Items.Item[bsSkinListView1.Items.Count -1].SubItems.Text := inputString;      //bsSkinListView1.Items.Add.SubItems.Add(inputString);      //bsSkinListView1.Columns.Items.Caption := InputString ;  end; end; procedure TForm1.bsSkinButton11Click(Sender: TObject); begin bsSkinTabSheet3.Visible:=true; end; procedure TForm1.bsSkinButton7Click(Sender: TObject); begin try  if Edit1.Text[length(Edit1.Text)] <> '/' then    Edit1.Text := Edit1.Text + '/'; //必须以 '/' 结尾  SearchFileThread := TSearchFileThread.Create(true);  SearchFileThread.MyDirName := Edit1.Text;  Animate1.Active := True ;  bsSkinListView2.Items.Clear ;  bsSkinButton9.Enabled := true ;  bsSkinButton7.Enabled := False ;  SumSearchFile := 0 ;  OverSearchFile := 0 ;  onoff := true ;  OnOff1 := true ;  SearchFileThread.Resume;  tempstring.Free ; except  // wrap up  Animate1.Active := false ;  form1.bsSkinButton7.Enabled := true ;  form1.bsSkinButton9.Enabled := false  ; end;    // try/finally end; procedure TForm1.bsSkinButton9Click(Sender: TObject); begin  Animate1.Active := false ;  bsSkinButton7.Enabled := true ;  bsSkinButton9.Enabled := False ;  onoff := False ;  SearchFileThread.Terminate ;  Application.MessageBox( PChar('搜索完毕，共找到 '+inttostr(OverSearchFile )) , PChar('提示'), MB_OK +     MB_ICONINFORMATION + MB_TOPMOST);  SearchFileThread.Free ; end; procedure TForm1.FormCreate(Sender: TObject); begin  bsSkinData1.LoadFromFile(ExtractFilePath(Application.ExeName)+'/Circuit/skin.ini') end; procedure TForm1.N1Click(Sender: TObject); begin deletefile(ShowFileName) ; end; end.

Mike1234567890 · 2005-12-15

我把你的代码考到我的Delphi7中 由于没有DFM文件 就把那些代码都去掉了 在我这儿没有提示出错 应该不是Execute本身的错误 如果实现不行就有笨方法 把所有代码都注释掉 一点一点的加 加到那出错，问题就在那附近

请教一条出错信息的解决方法，谢谢各位前辈 ( 积分: 50 )

copyyour

Unregistered / Unconfirmed

copyyour

Unregistered / Unconfirmed

Mike1234567890

Unregistered / Unconfirmed

copyyour

Unregistered / Unconfirmed

Mike1234567890

Unregistered / Unconfirmed

copyyour

Unregistered / Unconfirmed

Mike1234567890

Unregistered / Unconfirmed

copyyour

Unregistered / Unconfirmed

Mike1234567890

Unregistered / Unconfirmed

Similar threads