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

IdeConfig: Refactoring GetSkipCheckByKey function

Browse Source
This commit is contained in:
n7800 2025-03-05 22:50:06 +05:00 committed by Maxim Ganetsky
parent 971885c68a
commit 2ad1f33b7d
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/packages/ideconfig/idecmdline.pas
View File

@ -291,23 +291,16 @@ var
i: integer;
AAll, AValue: string;
begin
// return language specified in command line (empty string if no language specified)
Result := False;
AAll := ','+UpperCase(SkipChecksKeys[skcAll])+',';
AKey := ','+UpperCase(AKey)+',';
AValue := '';
i := 1;
while i <= ParamsAndCfgCount do
begin
if ParamIsOptionPlusValue(i, SkipChecksOptLong, AValue) = true then
for i := 1 to ParamsAndCfgCount do
if ParamIsOptionPlusValue(i, SkipChecksOptLong, AValue) then
begin
AValue := ','+UpperCase(AValue)+',';
Result := (Pos(AAll, AValue) > 0) or (Pos(AKey, AValue) > 0);
if Result then
exit;
if Pos(AAll, AValue) > 0 then exit(true);
if Pos(AKey, AValue) > 0 then exit(true);
end;
inc(i);
end;
result := false;
end;
procedure ParseCommandLine(aCmdLineParams: TStrings; out IDEPid: Integer; out