paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 07:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: TStandardCodeTool.RenamePublishedVariable fixed renaming type

Browse Source 
git-svn-id: trunk@13510 -
This commit is contained in:
mattias 2007-12-28 21:01:50 +00:00
parent b0ad5fd977
commit a6358840d5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/stdcodetools.pas
View File

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