谁知道DELPHI程序中读取*.ini或文本文件内容的代码?

来源：百度知道 编辑：UC知道 时间：2024/04/30 02:17:12
例如:程序访问ip:192.168.0.1机子上数据库data
用ado连,能给出成品的代码吗?
用文件的内容替换ado的数据连接.谢谢

{*******************************
*将主机信息保存在一个配置文件中*
*******************************}
procedure TFTPManageForm.SaveFTPHostInfo;
var
ServerIni: TIniFile;
begin
ServerIni := TIniFile.Create(Business.System.JSCommon.ModulePath + 'vb60.ini');
ServerIni.WriteString('Server', 'FT',Code.EncryptString('haier',EditHost.Text));
ServerIni.WriteString('Server', 'US',Code.EncryptString('haier',EditUserName.Text));
ServerIni.WriteString('Server', 'PA',Code.EncryptString('haier',EditPassWord.Text));
ServerIni.WriteString('Server', 'PR',Code.EncryptString('haier',EditPort.Text));
ServerIni.UpdateFile;
ServerIni.Free;
end;
{*******************************
****获取配置文件中的主机信息****
*******************************}
procedure TFTPManageForm.GetHostInfo;
var
ServerIni: T