> 如何取得 ConnectionString 內某個參數的值?

參考下面的範例：

var
  Str1, Str2, Str3: string;
begin
  with ADOConnection1 do 
  begin
    Str1 := VarToStr(Properties['Current Catalog'].Value);
    Str2 := VarToStr(Properties['Data Source Name'].Value);
    Str3 := VarToStr(Properties['Data Source'].Value);
  end;
  ShowMessage('>'+Str1+'<>'+Str2+'<>'+Str3+'<');
end;