procedure TFmMain.N3Click(Sender: TObject);
var
   filename:string;
begin
   filename:=ExtractFilePath(paramstr(0))+'dbconf.ini';
   myinifile:=Tinifile.Create(filename);
   ADOConnection1.Close;
   EditConnectionString(ADOConnection1);
   myinifile.WriteString('dbconf','connectstring',adoconnection1.ConnectionString);
   myinifile.Free;
end;
Last modification:July 30th, 2020 at 11:00 pm
如果觉得我的文章对你有用,请随意赞赏