编译过不了,请大家帮帮忙

Question

大家好,这是个文件拷贝的程序,以下是部分程序:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  vPath: String;
begin
  if SelectDirectory('请选择目录','',vPath) then
    edtSourcePath.Text := vPath;
end;编译时提示" if SelectDirectory('请选择目录','',vPath) then"出错
错误:types of actual and formal var parameters must be identical大家看看,该如何解决呀? 我是从ACCESS数据库中查询,然后读取文件名,在计算机上实现文件拷贝功能,从A文件夹拷到B文件夹.

Answer 1

SelectDirectory( '请选择目录 ', sdAllowCreate,vPath)

Answer 2

楼上说的对，要use FileCtrlunit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,FileCtrl;type
  TForm1 = class(TForm)
    Button1: TButton;
    edtSourcePath: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  vPath: String;
begin
  if SelectDirectory( '请选择目录 ', ' ',vPath) then
    edtSourcePath.Text := vPath;
end;
end.