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';
ServerName: string;
........
public
procedure LoadConfig(FileName: string);
end;
然后在TMainForm的public中增加
Configuration: TConfiguration;然后在MainForm的CreateForm中调用
Configuration.LoadConfig;
出错,
Access Voliation at address xxxxxxxxx,好像是不能写,何解?
LoadConfig中只有一条语句
ServerName := 'abcd';
ServerName: string;
........
public
constructor Create(AOwner: TComponent);//别忘了构造
procedure LoadConfig(FileName: string);
end;//调用
var
Configuration: TConfiguration;
begin
Configuration:=TConfigurateion.Create;//建立类的实例;
Configuration.LoadConfig;
end;