如何从自定义的封装类中返回所需要的数据,在线等

Question

unit SysObject;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Inifiles, ADODB, DB, StdCtrls, te_controls, RzCmboBx, ExtCtrls;type
  TSysObject = Class(TObject)
  private  public
    _Host, _Table, _User, _Pwd :string;
    //读入配置文件
    procedure ReadIni(State :integer; S :string);
end;implementationuses FormReg, RegExpr;procedure TSysObject.ReadIni(State :integer; S :string);
var
nIniFile :TIniFile;
nFileName :string;
begin
  nFileName := ExtractFilePath(ParamStr(0))+S;
  if FileExists(nFileName) then
  begin
    nIniFile := TIniFile.Create(nFileName);
    if State = 0 then
    begin
      _Host := nIniFile.ReadString('Setup','SrvIP','');--〉程序运行到这里是时就开始报错无法赋值
      _Table := nIniFile.ReadString('Setup','SrvDB','');
      _User := nIniFile.ReadString('Setup','SrvUser','');
      _Pwd := nIniFile.ReadString('Setup','SrvPwd','');
    end;
    nIniFile.Free;
  end;
end;end.请问各位大侠我应该如何向_Host,_Table,_User,_Pwd的变量中赋值，这些变量的类型定义应该写在那里

Answer 1

unit SysObject;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Inifiles, ADODB, DB, StdCtrls, te_controls, RzCmboBx, ExtCtrls;type
  TSysObject = Class(TObject)
  private
    FHost, FTable, FUser, FPwd :string;
  public
    property _Host string read FHost write Fhost;
    property _Table string read FTable write FTable;
    property _User string read FUser write FUser;
    property _Pwd string read FPwd write FPwd;
    //读入配置文件
    procedure ReadIni(State :integer; S :string);
end;implementationuses FormReg, RegExpr;procedure TSysObject.ReadIni(State :integer; S :string);
var
nIniFile :TIniFile;
nFileName :string;
begin
  nFileName := ExtractFilePath(ParamStr(0))+S;
  if FileExists(nFileName) then
  begin
    nIniFile := TIniFile.Create(nFileName);
    if State = 0 then
    begin
      FHost := nIniFile.ReadString('Setup','SrvIP','');
      FTable := nIniFile.ReadString('Setup','SrvDB','');
      FUser := nIniFile.ReadString('Setup','SrvUser','');
      FPwd := nIniFile.ReadString('Setup','SrvPwd','');
    end;
    nIniFile.Free;
  end;
end;end.