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
© 允许规范转载
如果觉得我的文章对你有用，请随意赞赏