Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/RoundData.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 180 |
TRoundItem(FBoardList[i]).Free; |
TRoundItem(FBoardList[i]).Free; |
| 181 |
FBoardList.Delete(i); |
FBoardList.Delete(i); |
| 182 |
end; |
end; |
| 183 |
|
FBoardList.Capacity := FBoardList.Count; |
| 184 |
for i := FItemList.Count - 1 downto 0 do begin |
for i := FItemList.Count - 1 downto 0 do begin |
| 185 |
if FItemList[i] <> nil then |
if FItemList[i] <> nil then |
| 186 |
TRoundItem(FItemList[i]).Free; |
TRoundItem(FItemList[i]).Free; |
| 187 |
FItemList.Delete(i); |
FItemList.Delete(i); |
| 188 |
end; |
end; |
| 189 |
|
FItemList.Capacity := FItemList.Count; |
| 190 |
end; |
end; |
| 191 |
|
|
| 192 |
function TRoundList.Find(Board: TBoard): Integer; |
function TRoundList.Find(Board: TBoard): Integer; |
| 457 |
errorSl.SaveToFile(errorFileName); |
errorSl.SaveToFile(errorFileName); |
| 458 |
end; |
end; |
| 459 |
finally |
finally |
| 460 |
|
errorSl.Free; |
| 461 |
sl.Free; |
sl.Free; |
| 462 |
// boardList.Free; |
// boardList.Free; |
| 463 |
end; |
end; |
|
|
Legend:
| Removed from v.1.15 |
|
| changed lines |
| |
Added in v.1.16 |
|
|
|