Converter: don't try to retype variables when there are no replacements.

git-svn-id: trunk@27328 -
This commit is contained in:
juha 2010-09-12 11:16:01 +00:00
parent 772c10f63e
commit 8e81570b80

View File

@ -317,6 +317,7 @@ begin
exit;
end;
// Apply replacement types also to pascal source.
if TypeReplacements.Tree.Count>0 then
if not CodeToolBoss.RetypeClassVariables(fPascalBuffer,
TLFMObjectNode(fLFMTree.Root).TypeName, TypeReplacements, false) then
Result:=mrCancel;