paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: nicer var name

Browse Source 
git-svn-id: trunk@44021 -
This commit is contained in:
mattias 2014-02-11 22:42:04 +00:00
parent 01c0a69449
commit 9745ff4588
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/lazbuild.lpr
View File

@ -773,9 +773,8 @@ var
UnitOutputDirectory: String;
TargetExeName: String;
TargetExeDir: String;
NewBuildMode: TProjectBuildMode;
CompilePolicy: TPackageUpdatePolicy;
i,c: Integer;
i,MatchCount: Integer;
Note: String;
NeedBuildAllFlag: Boolean;
SubResult: TModalResult;
@ -943,21 +942,20 @@ begin
begin
CurResult := true;
c := 0; // Matches counter
MatchCount := 0;
ModeMask := TMask.Create(BuildModeOverride,false);
for i := 0 to Project1.BuildModes.Count-1 do
begin
if ModeMask.Matches(Project1.BuildModes[i].Identifier) then
begin
inc(c);
inc(MatchCount);
Project1.ActiveBuildMode := Project1.BuildModes[i];
CurResult := CurResult and StartBuilding;
end;
end;
ModeMask.Free;
if c=0 then // No matches
if MatchCount=0 then // No matches
begin
debugln([Format(lisERRORInvalidBuildMode, [BuildModeOverride])]);
if ConsoleVerbosity>=0 then