关于ADOCONNECTION的有关问题，请帮忙看看

关于ADOCONNECTION的问题，请各位高手帮忙看看
procedure   TLog_F.BitBtn3Click(Sender:   TObject);
begin
ADOC1.Close;
IF   EditConnectionString(ADOC1)   then
      EDIT1.Text   :=   ADOC1.ConnectionString;
end;

会有错误提示，但是我之前也是这么做的，没有弹出来错误，请问问题出在哪？

错误提示：[Error]   Log_U.pas(99):   Undeclared   identifier:   'EditConnectionString '

要怎么定义 'EditConnectionString '呢？

[解决办法]
ADOC1.Close;
IF adoc1.ConnectionString <> ' ' then
EDIT1.Text := ADOC1.ConnectionString;


以上没有问题，但不知道你的目的是什么，如果是想要使当connectionstring变化时将其显示到edit1中，代码如下：


var
str1:string;


ADOC1.Close;
str1:=adoc1.ConnectionString;
.........//对adoc1.ConnectionString修改过程代码
.........
IF adoc1.ConnectionString <> str1 then
EDIT1.Text := ADOC1.ConnectionString;

[解决办法]
Uses AdoConEd;