INI文件

Question

请问这样来创建一个INI文件,通过ini文件来连接不同的数据库和服务器，
请给出代码，非常急！！

Answer 1

getmem(user,20);
    getmem(servername,20);
    getmem(version1,20);
    FileName := ExtractFilePath(application.ExeName)+'\Sys.ini';
    GetPrivateProfileString('DBMS','username','',user,20,pchar(filename));
    GetPrivateProfileString('DBMS','servername','',servername,20,pchar(filename));
    GetPrivateProfileString('ver','ver','',version1,20,pchar(filename));
    ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False'+
                      ';User ID='+user+';Password=123456'+';Initial Catalog=manage'+
                      ';Data Source='+servername+';';
    ADOConnection1.ConnectionString:=ConnectionString;