Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
T
TextSuite
Manage
Activity
Members
Labels
Plan
Issues
0
Issue boards
Milestones
Wiki
Code
Merge requests
0
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
bitSpace
TextSuite
Commits
f41d4782
Commit
f41d4782
authored
8 years ago
by
Bergmann89
Browse files
Options
Downloads
Patches
Plain Diff
* fixed small bug
parent
81e18973
Branches
master
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
utsUtils.pas
+10
-4
10 additions, 4 deletions
utsUtils.pas
with
10 additions
and
4 deletions
utsUtils.pas
+
10
−
4
View file @
f41d4782
...
...
@@ -188,10 +188,16 @@ end;
destructor
TtsMultiMasterRefManager
.
Destroy
;
var
i
:
Integer
;
begin
for
i
:=
fMasterRefs
.
Count
-
1
downto
0
do
DelMaster
(
fMasterRefs
[
i
]
as
TtsRefManager
);
FreeAndNil
(
fMasterRefs
);
m
:
TObjectList
;
begin
m
:=
fMasterRefs
;
try
fMasterRefs
:=
nil
;
for
i
:=
m
.
Count
-
1
downto
0
do
(
m
[
i
]
as
TtsRefManager
).
DelSlave
(
self
);
finally
FreeAndNil
(
m
);
end
;
inherited
Destroy
;
end
;
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment