给位高手，小弟搞不定了，进来看看吧。

Question

如何将数据库配置信息写入ini中。本人菜鸟。万望给位高手给点help

Answer 1

写什么不都是操作ini吗，section和key的名字不随便你自己定义吗，这有什么不会的，会写1，就不会写2了

Answer 2

和写文本没区别
如果LZ不会写文本文件，建议看下delphi帮助中的openfile和filestream

Answer 3

uses inifiles;var f:tinifile;  f:=tinifile.create('c:\t.ini');
  try
    f.writestring('datalink','servername', servername);
  finally
    f.free;
  end;

Answer 4

这个你只能找个例子,自己多搜索些资料来看看,试着操作才比较清楚Uses Inifiles;var x:Tinifile;
begin
  x:=Tinifile.Create('D:\1.ini');
  try
  x.WriteString('Info','XX','张三'); //写:WriteString 读:ReadString
  finally
    x.Free;
  end;
end;写出来格式是:
[Info]
XX=张三

Answer 5

[SQL   Server]
Data   Source=PC-201104281037
Initial   Catalog=motor
User   ID=sa
Password=1111

Answer 6

为什么非要分开呢？把连接字符串作为一个参数写入INI就行。
在配置时直接调用PromptDataSource过程，弹出标准的WindowsADO连接属性设置对话框来设置就行了

Answer 7

至于INI文件的写操作，3楼5楼已给出答案了
var
  NewDBConnStr:String;
  IniFile:TIniFile;
begin
  NewDBConnStr:=PromptDataSource(handle,DBConnStrED.Text);
  if Length(NewDBConnStr)>0 then
  begin
    ADOQuery1.ConnectionString:=NewDBConnStr;
    IniFile:=TInifile.Create('C:\Setup.Ini');
    IniFile.WriteString('Config','DBConnection',NewDBconnStr);
    IniFile.Free;
      
  end;

Answer 8

上面说的都很详细了！自定义
uses inifiles;
procedure writeini(wa,wb,wc:string);//写入ini文件
var myini,fileini:tinifile;
begin
  fileini:=ExtractFilePath(Paramstr(0))+'dbconfig.ini';
  myini:=tinifile.create(fileini);
  try
  myini.WriteString(wa,wb,wc);
  finally
  myini.free;
end;
function readini(ra,rb,rc:string):string;//读取ini文件
var myini,fileini:tinifile;
begin
  fileini:=ExtractFilePath(Paramstr(0))+'dbconfig.ini';
  myini:=tinifile.create(fileini);
  try
  result:=myini.readiniString(wa,wb,wc);
  finally
  myini.free;
end;
只供参考自已调用

Answer 9

哦，不好意思！fileini定义为fileini:string;