ExtractFilePath运用出错

Question

ADOC_NJSJ.connected := false;
     ADOC_NJSJ.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+pchar(ExtractFilePath(Application.ExeName))+ '\CaaNew.mdb;'.......
怎么这个出现错误啊，就是说application没有定义什么的

Answer 1

是这样的：  ADOC_NJSJ.connected := false;
     ADOC_NJSJ.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ExtractFilePath(Application.ExeName)+ 'CaaNew.mdb;'

Answer 2

Application.ExeName换成ParamStr(0)也可以