delphi F9运行的时候出现未将对象引用到对象的实例

bailei · 发表于 2020-8-14 18:26

delphi F9运行的时候出现未将对象引用到对象的实例
QQ图片20200814182340.png

这个问题该如何解决呀？
研究了好久不知道怎么搞

procedure TAPPGate.FWiteIni(SKey, SValue: String);
Var
AIniF: TIniFile;
begin
AIniF := TIniFile.Create('.\CasualGameGetServer.ini');
try
AIniF.WriteString('AppGateConfig', SKey, SValue);
finally
AIniF.Free;
end;
end;

procedure TAPPGate.TimerOnLineTimer(Sender: TObject);
begin
self.Caption := 'App 网关 ' + CGGSService.GetOnLineCount;
end;

EnterpriseSolu · 发表于 2020-8-14 19:39

AIniF 可能是空对象
SKey, SValue 也可能是null object

sdzzb · 发表于 2020-8-14 19:41

鼠标指针那一行报错吗？

sdzzb · 发表于 2020-8-14 19:43

目测代码问题不大啊

chinawolf2000 · 发表于 2020-8-14 19:51

本帖最后由 chinawolf2000 于 2020-8-14 19:53 编辑

AIniF := TIniFile.Create('.\CasualGameGetServer.ini');
确定这个相对路径能否加载成功
要是我肯定不这么写，可以先获取程序所在的路径
ExePath:=ExtractFilePath(Application.Exename);
路径补齐后，再判断下这个配置文件存在不存在，如果不存在还可以创建，这样能保证AIniF的创建能够成功
再判断传进来的参数是否为空
多一些判断就能避免很多问题
也可以单步运行，看看到哪出了问题

帐号		自动登录	找回密码
密码			注册[Register]

[求助] delphi F9运行的时候出现未将对象引用到对象的实例