codetools: TStandardCodeTool.RenamePublishedVariable fixed renaming type

git-svn-id: trunk@13510 -
This commit is contained in:
mattias 2007-12-28 21:01:50 +00:00
parent b0ad5fd977
commit a6358840d5

View File

@ -4182,7 +4182,7 @@ begin
// change the type
ApplyNeeded:=true;
if not SourceChangeCache.Replace(gtNone,gtNone,
CurPos.StartPos,CurPos.EndPos,NewVarName)
CurPos.StartPos,CurPos.EndPos,VarType)
then begin
RaiseException('Unable to replace type');
end;