Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/BoardGroup.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
| 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 |
|
|
|