最简单的方法操作ini文件

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;

Posted in 软件开发 at April 18, 2006. by 傻猫 .    Views: 5098    2 Comments