```pascal 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; ``` Loading... ```pascal 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; ``` 最后修改:2020 年 07 月 30 日 © 允许规范转载 打赏 赞赏作者 支付宝微信 赞 支持就是力量
5 条评论
两千多篇博客,看来是个老兵。向坚持写博客致敬
中国博客联盟前来拜访,祝贵博越来越好!
[quote=felixceo]猫猫你的delphi文章我都粗略的看完了。。。
多更新一些哈哈 不然都没得看了。[/quote]去下载一个大盒翁离线版吧,要找的资料上面都有。
猫猫你的delphi文章我都粗略的看完了。。。
多更新一些哈哈 不然都没得看了。