Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/RoundData.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.15 by h677, Tue Jan 13 10:17:10 2004 UTC revision 1.16 by h677, Tue Mar 16 15:37:55 2004 UTC
# Line 180  begin Line 180  begin
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;
# Line 455  begin Line 457  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26