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

Converter: Create TConvDelphiCodeTool just before it is needed.

Browse Source 
git-svn-id: trunk@27529 -
This commit is contained in:
juha 2010-09-30 19:34:08 +00:00
parent 35d7f5dcf0
commit 66596d10b6
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
converter/convertdelphi.pas
View File

@ -510,10 +510,9 @@ begin
fUnitsToRemove:=TStringList.Create;
fUnitsToRename:=TStringToStringTree.Create(false);
fUnitsToComment:=TStringList.Create;
IDEMessagesWindow.AddMsg('Converting unit file '+fOrigUnitFilename,'',-1);
Application.ProcessMessages;
ConvTool:=TConvDelphiCodeTool.Create(fPascalBuffer);
try
IDEMessagesWindow.AddMsg('Converting unit file '+fOrigUnitFilename,'',-1);
Application.ProcessMessages;
fLFMBuffer:=nil;
// Get DFM file name and close it in editor.
DfmFilename:=GetDfmFileName;
@ -568,16 +567,20 @@ begin
// Check from the project if this is a console application.
ConsApp:=Assigned(fOwnerConverter) and fOwnerConverter.fIsConsoleApp;
// Do the actual code conversion.
ConvTool.Ask:=Assigned(fOwnerConverter);
ConvTool.LowerCaseRes:=FileExistsUTF8(ChangeFileExt(fLazUnitFilename, '.res'));
ConvTool.HasFormFile:=DfmFilename<>'';
ConvTool.Settings:=fSettings;
ConvTool.UnitsToRemove:=fUnitsToRemove;
ConvTool.UnitsToRename:=fUnitsToRename;
ConvTool.UnitsToComment:=fUnitsToComment;
Result:=ConvTool.Convert(ConsApp);
ConvTool:=TConvDelphiCodeTool.Create(fPascalBuffer);
try
ConvTool.Ask:=Assigned(fOwnerConverter);
ConvTool.LowerCaseRes:=FileExistsUTF8(ChangeFileExt(fLazUnitFilename, '.res'));
ConvTool.HasFormFile:=DfmFilename<>'';
ConvTool.Settings:=fSettings;
ConvTool.UnitsToRemove:=fUnitsToRemove;
ConvTool.UnitsToRename:=fUnitsToRename;
ConvTool.UnitsToComment:=fUnitsToComment;
Result:=ConvTool.Convert(ConsApp);
finally
ConvTool.Free;
end;
finally
ConvTool.Free;
fUnitsToComment.Free;
fUnitsToRename.Free;
fUnitsToRemove.Free;