```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 日
© 允许规范转载
卧槽，全是白嫖客，服务器不要钱吗？