1.带标记的窗体的源码
procedure TfrmBusinessSet.loadConfig;
s := ChangeFileExt('businessset', '.ini');
if not fileExists(s) then
begin
ShowMessage('未找到配置文件'+ s);
Application.Terminate;
exit;
end;
ini := TIniFile.Create(s);
cmb124PrcSts.Items.Add('PR02:已付款');
cmb124PrcSts.Items.Add('PR09:已拒绝');
rg124return.ItemIndex := ini.ReadInteger('business','124return',0);
cmb124PrcSts.ItemIndex := ini.ReadInteger('business','124PrcSts',0);
2.自动回执单元引用
end else if (MessType = '123') and (FBusSet.rg124return.ItemIndex = 1) then
begin
if FBusSet.cmb124PrcSts.Text = 'PR02:已付款' then
RetMess := Mess124(data,'124')
else
RetMess := MessBeps900(data,'124');
在测试回执的发现,对于FBusSet.rg124return.ItemIndex和FBusSet.cmb124PrcSts.Text始终取得都是
默认值,无法取到更新后的值。
试了几种方法。在引用单元里面加载loadConfig函数即可,这样每次获得的都是最新值。
有感于在做监听连接的时候,一直持续出现一个问题,其实是后台的原因,我却不敢百分百我做的产品没有问题,导致浪费了大量的时间。
遇到问题及时总结,防止再次发生。