读取INI文件的问题

Question

我用ADOconnection控件连接本地数据库(MS SQL SERVER 2000)程序,当把这个程序发布到其他机器上该如何发布,我想用*.ini文件,(程序就一个窗体),这个写法我有点忘记了,谁有现成的源代码,请贴出来
回复有分

Answer 1

http://www.web120.net/Article/ShowArticle.asp?ArticleID=338

Answer 2

uses IniFilescfg:TIniFile;
cfg:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
cfg.ReadString('db','username','sa')

Answer 3

var
  aIniFile: TIniFile;
  FilePath: String;
egin
  FilePath := FilePath + 'Setting.ini';
  aIniFile := TIniFile.Create(FilePath);
  try
       aIniFile.WriteString('dd', 'dd', 'dd');
  finally
    aIniFile.Free;
  end;

Answer 4

保存的楼上的说了，下面是读取的uses IniFiles;var
  MyIniFile:TIniFile;   //  存放动态存取服务信息
  Service,UserName,Password:string;     // 存放登录数据库的服务信息、用户名、密码
{$R *.dfm}// 读取登录数据库配置信息
procedure TFrmLogin.ReadInfo;
var
  path:string;     // 存放应用程序所在路径
begin
  path:=ExtractFilePath(Application.ExeName)+'Config.ini';
  // 创建MyIniFile，并读取登录数据库的信息
  try
    MyIniFile:=TIniFile.Create(path);
    Service:=MyIniFile.ReadString('DB','Service','');
    UserName:=MyIniFile.ReadString('DB','UserName','');
    Password:=MyIniFile.ReadString('DB','Password','');
  finally
    MyIniFile.Free;
  end;
end;
Ini文件里面如下：[DB]
Service=chb
UserName=sa
Password=123456

Answer 5

var
  aIniFile: TIniFile;
  FilePath: String;
egin
  FilePath := FilePath + 'Setting.ini';
  aIniFile := TIniFile.Create(FilePath);
  try
       aIniFile.WriteString('dd', 'dd', 'dd');//这是写
       aIniFile.readString();//这是读  finally
    aIniFile.Free;
  end;