paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@28450 -
This commit is contained in:
mattias 2010-11-24 12:06:10 +00:00
parent f2a1221e1e
commit 9fa173599a
1 changed files with 4 additions and 3 deletions

7
converter/convcodetool.pas
View File

@ -292,7 +292,6 @@ end;
procedure TConvDelphiCodeTool.UnCommentUsesSection(AUsesSection: TUsesSection);
var
AUsesNode: TCodeTreeNode;
InsPos1, InsPos2: Integer;
begin
fSrcCache.MainScanner:=fCodeTool.Scanner;
fCodeTool.BuildTree(AUsesSection=usMain);
@ -619,12 +618,14 @@ function TConvDelphiCodeTool.AddUnits(AMainUnitsToAdd, AImplementationUnitsToAdd
var
i: Integer;
begin
Result:=false;
if AMainUnitsToAdd<>nil then;
for i:=0 to AMainUnitsToAdd.Count-1 do
fCodeTool.AddUnitToSpecificUsesSection(usMain, AMainUnitsToAdd[i], '', fSrcCache);
if not fCodeTool.AddUnitToSpecificUsesSection(usMain, AMainUnitsToAdd[i], '', fSrcCache) then exit;
if AImplementationUnitsToAdd<>nil then;
for i:=0 to AImplementationUnitsToAdd.Count-1 do
fCodeTool.AddUnitToSpecificUsesSection(usImplementation, AImplementationUnitsToAdd[i], '', fSrcCache);
if not fCodeTool.AddUnitToSpecificUsesSection(usImplementation, AImplementationUnitsToAdd[i], '', fSrcCache) then exit;
Result:=true;
end;
function TConvDelphiCodeTool.RemoveUnits(AUnitsToRemove: TStrings): boolean;