changeset 9708 | 7d146637cb81 |
parent 9706 | 5178d2263521 |
child 9731 | 953197ac43d8 |
9706:5178d2263521 | 9708:7d146637cb81 |
---|---|
93 begin |
93 begin |
94 t:= GearsList; |
94 t:= GearsList; |
95 while (t <> nil) and (t^.Kind <> gtMine) do |
95 while (t <> nil) and (t^.Kind <> gtMine) do |
96 t:= t^.NextGear; |
96 t:= t^.NextGear; |
97 if (t <> nil) then |
97 if (t <> nil) then |
98 DeleteGear(t) |
98 t^.State:= t^.State or gmDelete |
99 end; |
99 end; |
100 end; |
100 end; |
101 |
101 |
102 procedure DeleteCI(Gear: PGear); |
102 procedure DeleteCI(Gear: PGear); |
103 begin |
103 begin |