Skip to content

Commit

Permalink
Replace the check column with corrected exchange data (#309)
Browse files Browse the repository at this point in the history
Replace Check column content with corrected exchange data
    
- All contest logs now show exchange corrections in a separate column
- Check column was replaced with corrected qso information
- Replace Recv/Send columns with separate column for each exchange field
- Prefix or Mult columns are hidden for some contests
  • Loading branch information
w7sst authored May 3, 2024
2 parents 7a38061 + 62a7dc9 commit da17a82
Show file tree
Hide file tree
Showing 4 changed files with 220 additions and 65 deletions.
9 changes: 5 additions & 4 deletions Contest.pas
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,7 @@ TContest = class
const AStationCallsign : string) : TExchTypes; virtual;
procedure SendMsg(const AStn: TStation; const AMsg: TStationMessage); virtual;
procedure SendText(const AStn: TStation; const AMsg: string); virtual;
procedure FindQsoErrors(var Qso: TQso);
procedure FindQsoErrors(var Qso: TQso; var ACorrections: TStringList);
function ExtractMultiplier(Qso: PQso) : string; virtual;
function Minute: Single;
function GetAudio: TSingleArray;
Expand Down Expand Up @@ -365,11 +365,12 @@ procedure TContest.SendText(const AStn: TStation; const AMsg: string);
Side Effects:
- sets Qso.Exch1Error and Qso.Exch2Error
- add exchange corrections to ACorrection
}
procedure TContest.FindQsoErrors(var Qso: TQso);
procedure TContest.FindQsoErrors(var Qso: TQso; var ACorrections: TStringList);
begin
Qso.CheckExch1;
Qso.CheckExch2;
Qso.CheckExch1(ACorrections);
Qso.CheckExch2(ACorrections);
end;


Expand Down
2 changes: 1 addition & 1 deletion DxStn.pas
Original file line number Diff line number Diff line change
Expand Up @@ -190,7 +190,7 @@ procedure TDxStation.ProcessEvent(AEvent: TStationEvent);
end;


// copies data from this DxStation to top of QsoList[].
// copies data from this DxStation to the last QSO (top of QsoList[]).
// removes Self from Stations[] container array.
procedure TDxStation.DataToLastQso;
begin
Expand Down
Loading

0 comments on commit da17a82

Please sign in to comment.