谢谢,在线等

Question

procedure TLoginFrm.btnokClick(Sender: TObject);
var
   systemini :TIniFile ;
   name,pass :String ;
begin
   systemini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'system.ini');
   name:=systemini.Readstring('user','name','');
   pass:=systemini.Readstring('user','pass','');
   if (trim(Edit1.Text)<>name) then
        showmessage('输入的用户不正确!请重新输入!')
   else
       if (trim(Edit2.Text)<>pass)  then
       begin
       showmessage('输入的密码错误,请确认密码!') ;
       edit2.Clear;
       end
           else
           begin
           MainFrm.Show;
           LoginFrm.Hide;
           end;end;
中的1.systemini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'system.ini');怎么理解?
2.name:=systemini.Readstring('user','name','');中的systemini.Readstring怎么理解?

Answer 1

1.打开一个ini文件，与对象systemini建立关联。ExtractFilePath(Application.ExeName)是获取当前程序所在的路径。
2.读取一个字符串。Readstring('小节名','关键字','缺省值');
  例如 
  [user]
  name=abc
执行name:=systemini.Readstring('user','name','');之后，name的值就是abc了。