NAQP sends wrong exchange to caller (Coded by W7SST) (#87) (#88)

the Exch1 value was not being set after the contest changed.
w7sst · Nov 1, 2022 · ffba291 · ffba291
2 parents c98a8fd + 6423efb
commit ffba291
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/Main.pas b/Main.pas
@@ -1026,6 +1026,8 @@ procedure TMainForm.SetMyExch1(const AExchType: TExchange1Type;
       begin
         // Format('invalid RST (%s)', [AValue]));
         Ini.UserExchange1[SimContest] := Avalue;
+        Tst.Me.RST := StrToInt(Avalue.Replace('N', '9', [rfReplaceAll]));
+        Tst.Me.Exch1 := Avalue;
         if BDebugExchSettings then Edit2.Text := Avalue; // testing only
       end;
     etOpName: // e.g. scCwt (David)
@@ -1034,6 +1036,7 @@ procedure TMainForm.SetMyExch1(const AExchType: TExchange1Type;
         Ini.HamName:= Avalue;
         Ini.UserExchange1[SimContest] := Avalue;
         Tst.Me.OpName := Avalue;
+        Tst.Me.Exch1 := Avalue;
         if BDebugExchSettings then Edit2.Text := Avalue; // testing only
       end;
     etFdClass:  // e.g. scFieldDay (3A)