Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/BoardGroup.pas

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

revision 1.55 by h677, Sat Nov 20 12:19:44 2004 UTC revision 1.56 by h677, Sat Nov 20 13:14:40 2004 UTC
# Line 674  begin Line 674  begin
674  end;  end;
675    
676  procedure TCategory.Delete(index: integer);  procedure TCategory.Delete(index: integer);
 var  
         i : integer;  
677  begin  begin
678          if (Items[index] <> nil) then begin          if (Items[index] <> nil) then begin
679                  try                  try
# Line 684  begin Line 682  begin
682                          else                          else
683                                  TBoard(Items[index]).Multiplicity := TBoard(Items[index]).Multiplicity - 1;                                  TBoard(Items[index]).Multiplicity := TBoard(Items[index]).Multiplicity - 1;
684                  except                  except
                         i :=index;  
685                  end;                  end;
686          end;          end;
687          inherited Delete(index);          inherited Delete(index);

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

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