Как программно узнать путь к базе.Соединение через adoconnection.

[Moel]

Как программно узнать путь к базе.Соединение через adoconnection.

[Stilet]

Например так:

var e,k:integer;s:string;
begin
k:=pos('urce=',ADOConnection1.ConnectionString)+5;
s:=copy(ADOConnection1.ConnectionString,k,
   length(ADOConnection1.ConnectionString)-k);
s:=copy(s,1,pos(';',s)-1);
   caption:=s;
end;