關於inifile的問題!急,分不夠再加!

cyxxde 2004-08-30 10:18:30
procedure TMain.FormCreate(Sender: TObject);
var FileName1,username,userpassword,userdatabase,userdatasource,ODBC_name:string;

var ole_db:boolean;
begin
FileName1:=extractFilepath(Application.exename)+'mould.ini';
if not FileExists(FileName1) then
begin
FileCreate(FileName1);
myini:=TiniFile.Create(FileName1);
myini.writestring('connect_data','sql_username',mycrypt('gkMould'));//到此提示出錯;
myini.WriteString('connect_data','sql_password',mycrypt('147'));
myini.WriteString('connect_data','userdatabase','Mould');
myini.WriteBool('connect_option','oledbsql',true);
myini.WriteString('connect_data','userdatasource','GKSERVER');
myini.Writestring('connect_data','ODBC_name','GKMould');
myini.Destroy;

end;
myini:=TiniFile.Create(FileName1);
username:=myini.Readstring('connect_data','sql_username',mycrypt('gkMould'));
userpassword:=myini.ReadString('connect_data','sql_password',mycrypt('147'));
userdatabase:=myini.ReadString('connect_data','userdatabase','Mould');
ole_db:=myini.ReadBool('connect_option','oledbsql',true);
userdatasource:=myini.ReadString('connect_data','userdatasource','GKSERVER');
ODBC_name:=myini.ReadString('connect_data','ODBC_name','GKMould');
end;
執行的時間提示不能把信息寫入到文件中。
...全文
189 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
cyxxde 2004-08-30
  • 打赏
  • 举报
回复
原來如此,謝謝kaguo(▲) Guozhi(★★★★★) !!
wintergoes 2004-08-30
  • 打赏
  • 举报
回复
mycrypt
是个什么东西?
kaguo 2004-08-30
  • 打赏
  • 举报
回复
这个
var
SysIni:Tinifile;
kaguo 2004-08-30
  • 打赏
  • 举报
回复
ini文件自己封装了文件是否存在,等等,无需你建立。
你建立的文件恰好阻止了TiniFile文件的建立
kaguo 2004-08-30
  • 打赏
  • 举报
回复
FileCreate(FileName1);//造成的。去掉
操作例子
FileName:='C:\SysSetup.ini';
SysIni:=Tinifile.Create(FileName);
try
SysIni.WriteString('System','AName','AValue');
Result:=true;
except
Result:=false;
end;
SysIni.Free;

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧