TConfiguration = class
    ServerName: string;
    ........
  public
    procedure LoadConfig(FileName: string);
  end;
然后在TMainForm的public中增加
Configuration: TConfiguration;然后在MainForm的CreateForm中调用
Configuration.LoadConfig;
出错,
Access  Voliation at address xxxxxxxxx,好像是不能写,何解?
LoadConfig中只有一条语句
ServerName := 'abcd';

解决方案 »

  1.   

    TConfiguration delphi 有这个类吗 学习
      

  2.   

    这好像只是声明了一个tconfiguration类而已吧!
      

  3.   

    TConfiguration = class
        ServerName: string;
        ........
      public
        constructor Create(AOwner: TComponent);//别忘了构造
        procedure LoadConfig(FileName: string);
      end;//调用
    var 
      Configuration: TConfiguration;
    begin
      Configuration:=TConfigurateion.Create;//建立类的实例;
      Configuration.LoadConfig;
    end;