hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-21 18:37:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix IndexOutOfBoundException when reducing station number in xplanet

Browse Source 
- fix a IndexOutOfBoundException when reducing show-last-spot-station-number in xplanet reference.
        - now it always delete the oldest entry, which is index 0.
This commit is contained in:
Andreas Puschendorf 2019-01-13 21:52:50 +01:00
parent b2a999b426
commit 6d63b8fb7b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/dDXCluster.pas
View File

@ -915,7 +915,7 @@ begin
if FileExists(dmData.HomeDir + 'xplanet'+PathDelim+'marker') then
l.LoadFromFile(dmData.HomeDir + 'xplanet'+PathDelim+'marker');
try
for i:= 0 to l.Count-1 do
for i:= 0 to l.Count-1 do // for loop try to find call and delete old position before adding the new
begin
if Pos(call,l.Strings[i]) > 0 then //we do no need quotation marks: compares without
begin
@ -928,7 +928,7 @@ begin
begin
iMax := l.Count - iMax; // how many lines to delete?
for i:= 0 to iMax-1 do
l.Delete(i)
l.Delete(0) // delete always index 0, this is always the oldest entry
end;
try
l.SaveToFile(dmData.HomeDir + 'xplanet'+PathDelim+'marker');