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

Remove extra checks for empty strings together with IsValidIdent. It already handles an empty string.

Browse Source 
git-svn-id: trunk@52812 -
This commit is contained in:
juha 2016-08-17 10:40:29 +00:00
parent ea7fcec8a1
commit 9367da0ae5
41 changed files with 70 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/anchordocking/anchordockstorage.pas
View File

@ -1957,8 +1957,7 @@ begin
Layout.LoadFromConfig(Config);
for i:=FControlNames.Count-1 downto 0 do begin
AName:=FControlNames[i];
if (AName<>'') and IsValidIdent(AName)
and (Layout.Root<>nil) then begin
if IsValidIdent(AName) and (Layout.Root<>nil) then begin
Node:=Layout.Root.FindChildNode(AName,true);
if (Node<>nil) and (Node.NodeType in [adltnControl,adltnCustomSite]) then
continue;
@ -1979,8 +1978,7 @@ begin
Layout.LoadFromConfig(Path, Config);
for i:=FControlNames.Count-1 downto 0 do begin
AName:=FControlNames[i];
if (AName<>'') and IsValidIdent(AName)
and (Layout.Root<>nil) then begin
if IsValidIdent(AName) and (Layout.Root<>nil) then begin
Node:=Layout.Root.FindChildNode(AName,true);
if (Node<>nil) and (Node.NodeType in [adltnControl,adltnCustomSite]) then
continue;

2
components/codetools/basiccodetools.pas
View File

@ -1076,7 +1076,7 @@ begin
if SearchCodeInSource(Source,FormClassName+'=class(',1,SrcPos,false)<1 then
exit;
Result:=ReadNextPascalAtom(Source,SrcPos,AtomStart);
if (Result<>'') and (not IsValidIdent(Result)) then
if not IsValidIdent(Result) then
Result:='';
end;

2
components/codetools/codecompletiontool.pas
View File

@ -2897,7 +2897,7 @@ var
if Result='' then
Result:=ParamType;
// otherwise use 'Param'
if (Result='') or (not IsValidIdent(Result)) then
if not IsValidIdent(Result) then
Result:='Param';
// prepend an 'a'
if Result[1]<>'a' then

2
components/codetools/codetoolmanager.pas
View File

@ -2623,7 +2623,7 @@ begin
Result:=true;
exit;
end;
if (NewIdentifier='') or (not IsValidIdent(NewIdentifier)) then exit;
if not IsValidIdent(NewIdentifier) then exit;
ClearCurCodeTool;
SourceChangeCache.Clear;

5
components/codetools/codetoolscfgscript.pas
View File

@ -298,8 +298,7 @@ var
AtomStart: PChar;
SrcPos: PtrUInt;
begin
if (Src='') or (OldName='') or (not IsValidIdent(OldName))
or (NewName='') then exit;
if (Src='') or not IsValidIdent(OldName) or (NewName='') then exit;
p:=PChar(Src);
//debugln(['RenameCTCSVariable START ',dbgstr(Src)]);
repeat
@ -1181,7 +1180,7 @@ begin
Clear;
for i:=0 to Source.Count-1 do begin
Name:=Source.Names[i];
if (Name='') or not IsValidIdent(Name) then continue;
if not IsValidIdent(Name) then continue;
Value:=Source.ValueFromIndex[i];
Define(PChar(Name),Value);
end;

6
components/codetools/definetemplates.pas
View File

@ -7946,7 +7946,7 @@ begin
for i:=1 to Cnt do begin
SubPath:=Path+'Defines/Macro'+IntToStr(i)+'/';
DefineName:=UpperCaseStr(XMLConfig.GetValue(SubPath+'Name',''));
if (DefineName='') or (not IsValidIdent(DefineName)) then begin
if not IsValidIdent(DefineName) then begin
DebugLn(['Warning: [TFPCTargetConfigCache.LoadFromXMLConfig] invalid define name ',DefineName]);
continue;
end;
@ -7964,7 +7964,7 @@ begin
StartPos:=1;
while (p<=length(s)) and (s[p]<>';') do inc(p);
DefineName:=copy(s,StartPos,p-StartPos);
if (DefineName<>'') and IsValidIdent(DefineName) then begin
if IsValidIdent(DefineName) then begin
if Undefines=nil then
Undefines:=TStringToStringTree.Create(false);
Undefines[DefineName]:='';
@ -8057,7 +8057,7 @@ begin
Node:=Defines.Tree.FindLowest;
while Node<>nil do begin
Item:=PStringToStringTreeItem(Node.Data);
if (Item^.Name<>'') and IsValidIdent(Item^.Name) then begin
if IsValidIdent(Item^.Name) then begin
inc(Cnt);
SubPath:=Path+'Defines/Macro'+IntToStr(Cnt)+'/';
XMLConfig.SetDeleteValue(SubPath+'Name',Item^.Name,'');

4
components/codetools/h2pastool.pas
View File

@ -2520,8 +2520,8 @@ function TH2PasTool.CreateH2PNode(var PascalName: string; const CName: string;
const PascalCode: string;
ParentNode: TH2PNode; IsGlobal: boolean; InsertAsPreLast: boolean): TH2PNode;
begin
if (PascalName<>'') and (PascalDesc<>ctnNone) and IsValidIdent(PascalName)
then begin
if (PascalDesc<>ctnNone) and IsValidIdent(PascalName) then
begin
if WordIsKeyWord.DoItCaseInsensitive(PChar(PascalName)) then begin
// C name is keyword => auto rename
PascalName:=PascalName+'_';

8
components/codetools/ide/addassignmethoddlg.pas
View File

@ -390,7 +390,7 @@ begin
FAssignBodyNode:=nil;
FInheritedDeclContext:=CleanFindContext;
NewProcName:=ProcNameEdit.Text;
if (NewProcName<>'') and IsValidIdent(NewProcName) then
if IsValidIdent(NewProcName) then
FProcName:=NewProcName;
Result:=(FCode<>nil) and CodeToolBoss.FindAssignMethod(FCode,FX,FY,
@ -433,7 +433,7 @@ begin
DeclGroupBox.Caption:=crsCAMNewMethod;
ProcNameLabel.Caption:=crsCAMMethodName;
if (NewProcName='') or (not IsValidIdent(NewProcName)) then
if not IsValidIdent(NewProcName) then
ProcNameErrorLabel.Caption:=crsCAMInvalidIdentifier
else if not Result then
ProcNameErrorLabel.Caption:=crsCAMCursorIsNotInAPascalClassDeclaration
@ -445,7 +445,7 @@ begin
ParamNameLabel.Caption:=crsCAMParameterName;
if UseInheritedParam then
ParamNameEdit.Text:=FInheritedParamName;
if (ParamNameEdit.Text='') or not IsValidIdent(ParamNameEdit.Text) then
if not IsValidIdent(ParamNameEdit.Text) then
ParamNameErrorLabel.Caption:=crsCAMInvalidIdentifier
else
ParamNameErrorLabel.Caption:='';
@ -453,7 +453,7 @@ begin
ParamTypeLabel.Caption:=crsCAMParameterType;
if UseInheritedParam then
ParamTypeEdit.Text:=FInheritedParamType;
if (ParamTypeEdit.Text='') or not IsValidIdent(ParamTypeEdit.Text) then
if not IsValidIdent(ParamTypeEdit.Text) then
ParamTypeErrorLabel.Caption:=crsCAMInvalidIdentifier
else
ParamTypeErrorLabel.Caption:='';

5
components/codetools/ide/newidewnddlg.pas
View File

@ -100,11 +100,8 @@ begin
end;
function TNewIDEWndCfgDialog.IsFormNameValid: boolean;
var
s: TCaption;
begin
s:=FormNameEdit.Text;
Result:=(s<>'') and IsValidIdent(s);
Result:=IsValidIdent(FormNameEdit.Text);
end;
function TNewIDEWndCfgDialog.IsMenuCaptionValid: boolean;

2
components/codetools/keywordfunclists.pas
View File

@ -388,7 +388,7 @@ begin
DoDataFunction:=ADataFunction;
end;
inc(FCount);
if (AKeyWord='') or not IsValidIdent(AKeyWord) then
if not IsValidIdent(AKeyWord) then
FHasOnlyIdentifiers:=false;
end;

2
components/codetools/ppugraph.pas
View File

@ -690,7 +690,7 @@ begin
if (CompareFileExt(Filename,'ppu',false)<>0) then continue;
AUnitName:=ExtractFileNameOnly(Filename);
Filename:=AppendPathDelim(Directory)+Filename;
if (AUnitName='') or (not IsValidIdent(AUnitName)) then begin
if not IsValidIdent(AUnitName) then begin
DebugLn(['TPPUGroups.AddFPCGroup NOTE: invalid ppu name: ',Filename]);
continue;
end;

4
components/education/eduoptions.pas
View File

@ -281,7 +281,7 @@ var
begin
for i:=0 to ChildCount-1 do begin
Child:=Children[i];
if (Child.Name='') or (not IsValidIdent(Child.Name)) then continue;
if not IsValidIdent(Child.Name) then continue;
Config.AppendBasePath(Child.Name);
try
Result:=Child.Load(Config);
@ -300,7 +300,7 @@ var
begin
for i:=0 to ChildCount-1 do begin
Child:=Children[i];
if (Child.Name='') or (not IsValidIdent(Child.Name)) then continue;
if not IsValidIdent(Child.Name) then continue;
Config.AppendBasePath(Child.Name);
try
Result:=Child.Save(Config);

4
components/ideintf/idewindowintf.pas
View File

@ -1643,7 +1643,7 @@ begin
while i > 0 do begin
ID := Config.GetValue(Path+'Desktop/FormIdList/a'+IntToStr(i), '');
//debugln(['TSimpleWindowLayoutList.LoadFromConfig ',i,' ',ID]);
if (ID <> '') and IsValidIdent(ID) then
if IsValidIdent(ID) then
begin
xLayoutIndex := IndexOf(ID);
if (xLayoutIndex = -1) then
@ -2297,7 +2297,7 @@ procedure TIDEWindowCreatorList.ShowForm(AForm: TCustomForm; BringToFront: boole
var
Layout: TSimpleWindowLayout;
begin
if (AForm.Name='') or (not IsValidIdent(AForm.Name)) then
if not IsValidIdent(AForm.Name) then
raise Exception.Create('TIDEWindowCreatorList.ShowForm invalid form name '+AForm.Name);
// auto create a layout storage for every shown form

4
components/ideintf/oifavoriteproperties.pas
View File

@ -288,11 +288,11 @@ begin
for i:=0 to NewCount-1 do begin
p:=Path+'Item'+IntToStr(i)+'/';
NewPropertyName:=ConfigStore.GetValue(p+'PropertyName','');
if (NewPropertyName='') or (not IsValidIdent(NewPropertyName)) then
if not IsValidIdent(NewPropertyName) then
continue;
NewInclude:=ConfigStore.GetValue(p+'Include',true);
NewBaseClassname:=ConfigStore.GetValue(p+'BaseClass','');
if (NewBaseClassname='') or (not IsValidIdent(NewBaseClassname)) then
if not IsValidIdent(NewBaseClassname) then
continue;
NewBaseClass:=GetClass(NewBaseClassname);
NewItem:=TOIFavoriteProperty.Create(NewBaseClass,NewPropertyName,

2
components/ideintf/propedits.pp
View File

@ -4885,7 +4885,7 @@ end;
procedure TComponentNamePropertyEditor.SetValue(const NewValue: ansistring);
begin
if (not IsValidIdent(NewValue)) or (NewValue='') then
if not IsValidIdent(NewValue) then
raise Exception.Create(Format(oisComponentNameIsNotAValidIdentifier, [NewValue]));
inherited SetValue(NewValue);
PropertyHook.ComponentRenamed(TComponent(GetComponent(0)));

5
components/rtticontrols/rttictrls.pas
View File

@ -1677,9 +1677,8 @@ procedure TCustomPropertyLink.SetObjectAndProperty(NewPersistent: TPersistent;
var
AComponent: TComponent;
begin
// Note: checking for IsValidIdent is not needed, because
// an identifier is is only needed for streaming. So every string as Name is
// allowed.
// Note: checking for IsValidIdent is not needed, because an identifier
// is only needed for streaming. So every string as Name is allowed.
if (NewPersistent<>TIObject) or (NewPropertyName<>TIPropertyName) then begin
FPropertyLoaded:=false;
if (FTIObject is TComponent) then begin

2
components/todolist/todolist.pas
View File

@ -452,7 +452,7 @@ begin
CurOwner:=nil;
CurProject:=nil;
CurPkg:=nil;
if (IDEItem<>'') and IsValidIdent(IDEItem) then begin
if IsValidIdent(IDEItem) then begin
// package
CurPkg:=PackageEditingInterface.FindPackageWithName(IDEItem);
CurOwner:=CurPkg;

6
components/wiki/lazwiki/wiki2fpdocconvert.pas
View File

@ -279,8 +279,8 @@ begin
end;
{ IsValidIdent returns true if the first character of Ident is in:
'A' to 'Z', 'a' to 'z' or '_' and the following characters are
on of: 'A' to 'Z', 'a' to 'z', '0'..'9' or '_' }
'A' to 'Z', 'a' to 'z' or '_' and the following characters are one of:
'A' to 'Z', 'a' to 'z', '0'..'9' or '_' }
function IsValidNodeName(const Ident: string): boolean;
var
p: PChar;
@ -412,7 +412,7 @@ end;
procedure TWiki2FPDocConverter.SetPackageName(AValue: string);
begin
if (AValue='') or not IsValidIdent(AValue) then
if not IsValidIdent(AValue) then
raise Exception.Create('invalid package name "'+AValue+'"');
if FPackageName=AValue then Exit;
FPackageName:=AValue;

2
designer/askcompnamedlg.pas
View File

@ -116,7 +116,7 @@ begin
ErrorMsg:=lisEmpty;
exit;
end;
if (not IsValidIdent(AName)) then begin
if not IsValidIdent(AName) then begin
ErrorMsg:=lisNotAValidPascalIdentifier;
exit;
end;

8
designer/jitforms.pp
View File

@ -1228,7 +1228,7 @@ begin
if IndexOf(JITComponent)<0 then
raise Exception.Create('TJITComponentList.RemoveMethod JITComponent.ClassName='+
JITComponent.ClassName);
if (AName='') or (not IsValidIdent(AName)) then
if not IsValidIdent(AName) then
raise Exception.Create('TJITComponentList.RemoveMethod invalid name: "'+AName+'"');
// delete TJITMethod
@ -1254,7 +1254,7 @@ begin
if IndexOf(JITComponent)<0 then
raise Exception.Create('TJITComponentList.RenameMethod JITComponent.ClassName='+
JITComponent.ClassName);
if (NewName='') or (not IsValidIdent(NewName)) then
if not IsValidIdent(NewName) then
raise Exception.Create('TJITComponentList.RenameMethod invalid name: "'+NewName+'"');
// rename TJITMethod
@ -1278,7 +1278,7 @@ begin
if IndexOf(JITComponent)<0 then
raise Exception.Create('TJITComponentList.RenameComponentClass JITComponent.ClassName='+
JITComponent.ClassName);
if (NewName='') or (not IsValidIdent(NewName)) then
if not IsValidIdent(NewName) then
raise Exception.Create('TJITComponentList.RenameComponentClass invalid name: "'+NewName+'"');
DoRenameClass(JITComponent.ClassType,NewName);
end;
@ -1401,7 +1401,7 @@ begin
if IndexOf(JITComponent)<0 then
raise Exception.Create('TJITComponentList.CreateNewMethod JITComponent.ClassName='+
JITComponent.ClassName);
if (AName='') or (not IsValidIdent(AName)) then
if not IsValidIdent(AName) then
raise Exception.Create('TJITComponentList.CreateNewMethod invalid name: "'+AName+'"');
OldCode:=JITComponent.MethodAddress(AName);
if OldCode<>nil then begin

2
doceditor/frmmakeskel.pp
View File

@ -85,7 +85,7 @@ end;
Function TMakeSkelForm.PackageOK : Boolean;
begin
Result:=(EPackage.Text<>'') and IsValidIdent(EPackage.Text);
Result:=IsValidIdent(EPackage.Text);
end;
Function TMakeSkelForm.InputFileOK : Boolean;

2
examples/pascalstream/componentstreampas.pas
View File

@ -279,7 +279,7 @@ var
i: Integer;
Item: TPASObjectWriterStackEl;
begin
if (Component.Name='') or (not IsValidIdent(Component.Name)) then
if not IsValidIdent(Component.Name) then
raise Exception.Create('TPASObjectWriter.BeginComponent not pascal identifier');
if (FStack<>nil) and (FStack.Count>0) then begin
// auto create child components

2
ide/addtoprojectdlg.pas
View File

@ -185,7 +185,7 @@ begin
end;
// check packagename
if (NewPkgName='') or (not IsValidIdent(NewPkgName)) then begin
if not IsValidIdent(NewPkgName) then begin
IDEMessageDialog(lisProjAddInvalidPackagename,
Format(lisProjAddThePackageNameIsInvalidPlaseChooseAnExistingPackag,
[NewPkgName, LineEnding]),

2
ide/buildmanager.pas
View File

@ -1585,7 +1585,7 @@ begin
else
continue;
CurUnitName:=ExtractFilenameOnly(FileInfo.Name);
if (CurUnitName='') or (not IsValidIdent(CurUnitName)) then
if not IsValidIdent(CurUnitName) then
continue;
CurFilename:=CurDir+FileInfo.Name;
//DebugLn(['TBuildManager.CheckUnitPathForAmbiguousPascalFiles ',CurUnitName,' ',CurFilename]);

2
ide/codebrowser.pas
View File

@ -3327,7 +3327,7 @@ begin
end;
// get identifier
if (Identifier='') or (not IsValidIdent(Identifier)) then begin
if not IsValidIdent(Identifier) then begin
DebugLn(['TQuickFixIdentifierNotFound_Search.Execute not an identifier "',dbgstr(Identifier),'"']);
exit;
end;

4
ide/compileroptions.pp
View File

@ -4328,7 +4328,7 @@ end;
procedure TIDEBuildMacro.SetIdentifier(const AValue: string);
begin
if FIdentifier=AValue then exit;
if (AValue='') or (not IsValidIdent(AValue)) then
if not IsValidIdent(AValue) then
raise Exception.Create('TIDEBuildMacro.SetIdentifier invalid identifier: '+AValue);
FIdentifier:=AValue;
{$IFDEF VerboseIDEModified}
@ -4535,7 +4535,7 @@ begin
for i:=0 to NewCount-1 do begin
NewItem:=TIDEBuildMacro.Create;
NewItem.LoadFromXMLConfig(AXMLConfig,Path+'Item'+IntToStr(i+1)+'/',DoSwitchPathDelims);
if (NewItem.Identifier<>'') and IsValidIdent(NewItem.Identifier) then
if IsValidIdent(NewItem.Identifier) then
FItems.Add(NewItem)
else
NewItem.Free;

2
ide/etfpcmsgparser.pas
View File

@ -2350,7 +2350,7 @@ begin
Identifier:=''
else begin
Identifier:=GetFPCMsgValue1(MsgLine);
if (Identifier='') or not IsValidIdent(Identifier) then exit;
if not IsValidIdent(Identifier) then exit;
end;
if MsgLine.Attribute[AttrPosChecked]<>'' then exit;

2
ide/etquickfixes.pas
View File

@ -266,7 +266,7 @@ begin
Tool.ReadNextAtom;
Identifier:=Tool.GetAtom;
CleanPos:=Tool.CurPos.StartPos;
Result:=(Identifier<>'') and IsValidIdent(Identifier);
Result:=IsValidIdent(Identifier);
end;
function GetMsgSrcPosOfThisIdentifier(Msg: TMessageLine; const Identifier: string;

2
ide/extractprocdlg.pas
View File

@ -210,7 +210,7 @@ var
ProcName: String;
begin
ProcName:=GetProcName;
if (ProcName='') or (not IsValidIdent(ProcName)) then begin
if not IsValidIdent(ProcName) then begin
IDEMessageDialog(lisInvalidProcName,
Format(lisSVUOisNotAValidIdentifier, [ProcName]), mtError,[mbCancel]);
ModalResult:=mrNone;

2
ide/findrenameidentifier.pas
View File

@ -588,7 +588,7 @@ var
NewIdentifier: String;
begin
NewIdentifier:=NewEdit.Text;
if (NewIdentifier='') or (not IsValidIdent(NewIdentifier)) then begin
if not IsValidIdent(NewIdentifier) then begin
IDEMessageDialog(lisFRIInvalidIdentifier,
Format(lisSVUOisNotAValidIdentifier, [NewIdentifier]), mtError, [mbCancel]);
ModalResult:=mrNone;

2
ide/findunitdlg.pas
View File

@ -192,7 +192,7 @@ begin
if not IsApplicable(Msg,MissingUnit,UsedByUnit) then exit;
DebugLn(['TQuickFixUnitNotFound_Search.Execute Unit=',MissingUnit]);
if (MissingUnit='') or (not IsValidIdent(MissingUnit)) then begin
if not IsValidIdent(MissingUnit) then begin
DebugLn(['TQuickFixUnitNotFound_Search.Execute not an identifier "',dbgstr(MissingUnit),'"']);
exit;
end;

2
ide/frames/compiler_buildmacro_options.pas
View File

@ -140,7 +140,7 @@ begin
ok:=false;
try
// check syntax
if (S='') or (not IsValidIdent(S)) then begin
if not IsValidIdent(S) then begin
IDEMessageDialog(lisCCOErrorCaption,
Format(lisInvalidMacroTheMacroMustBeAPascalIdentifie, [S]),
mtError,[mbCancel]);

7
ide/idehelpmanager.pas
View File

@ -693,8 +693,7 @@ begin
end;
AFilename:=SetDirSeparators(AFilename);
LazarusIDE.DoOpenFileAndJumpToPos(AFilename,p,-1,-1,-1,[]);
end else if (URLScheme='openpackage') and (URLPath<>'')
and IsValidIdent(URLPath) then begin
end else if (URLScheme='openpackage') and IsValidIdent(URLPath) then begin
PackageEditingInterface.DoOpenPackageWithName(URLPath,[],false);
end else if (URLScheme='fpdoc') and (URLParams<>'') then begin
OpenFPDoc(URLParams);
@ -744,7 +743,7 @@ begin
exit;
end;
PkgName:=copy(PkgName,2,length(PkgName));
if (PkgName='') or not IsValidIdent(PkgName) then begin
if not IsValidIdent(PkgName) then begin
InvalidPathError('It does not start with a package name, for example #rtl.');
exit;
end;
@ -760,7 +759,7 @@ begin
end;
AnUnitName:=ExtractSubPath;
if (AnUnitName='') or (not IsValidIdent(AnUnitName)) then begin
if not IsValidIdent(AnUnitName) then begin
InvalidPathError('Unit name "'+AnUnitName+'" is invalid.');
exit;
end;

2
ide/main.pp
View File

@ -11319,7 +11319,7 @@ var
OldOpenEditorsOnCodeToolChange: Boolean;
begin
DebugLn('Hint: (lazarus) TMainIDE.OnDesignerRenameComponent Old=',AComponent.Name,':',AComponent.ClassName,' New=',NewName,' Owner=',dbgsName(AComponent.Owner));
if (not IsValidIdent(NewName)) or (NewName='') then
if not IsValidIdent(NewName) then
raise Exception.Create(Format(lisComponentNameIsNotAValidIdentifier, [Newname]));
if WordIsKeyWord.DoItCaseInsensitive(PChar(NewName))
or WordIsDelphiKeyWord.DoItCaseInsensitive(PChar(NewName))

6
ide/project.pp
View File

@ -3852,7 +3852,7 @@ begin
Prefix:=AnUnitName;
while (Prefix<>'') and (Prefix[length(Prefix)] in ['0'..'9']) do
Prefix:=copy(Prefix,1,length(Prefix)-1);
if (Prefix='') or (not IsValidIdent(Prefix)) then
if not IsValidIdent(Prefix) then
Prefix:='Unit';
u:=0;
repeat
@ -5483,7 +5483,7 @@ begin
end;
// check build macros
if (MacroName<>'') and IsValidIdent(MacroName) then
if IsValidIdent(MacroName) then
begin
Values:=GetBuildMacroValues(CompilerOptions,true);
if Values<>nil then begin
@ -7121,7 +7121,7 @@ begin
for i:=1 to Cnt do begin
SubPath:=Path+'Macro'+IntToStr(i)+'/';
MacroName:=FXMLConfig.GetValue(SubPath+'Name','');
if (MacroName='') or not IsValidIdent(MacroName) then continue;
if not IsValidIdent(MacroName) then continue;
MacroValue:=FXMLConfig.GetValue(SubPath+'Value','');
//debugln(['LoadMacroValues Mode="',CurMode.Identifier,'" ',MacroName,'="',MacroValue,'" session=',CurMode.InSession]);
AddMatrixMacro(MacroName,MacroValue,CurMode.Identifier,CurMode.InSession);

10
ide/sourcefilemanager.pas
View File

@ -1539,7 +1539,7 @@ begin
// for example 'SysUtils.CompareText'
FFileName:=FActiveSrcEdit.EditorComponent.GetWordAtRowCol(
FActiveSrcEdit.EditorComponent.LogicalCaretXY);
if (FFileName<>'') and IsValidIdent(FFileName) then begin
if IsValidIdent(FFileName) then begin
// search pascal unit
AUnitName:=FFileName;
InFilename:='';
@ -4558,7 +4558,7 @@ function TLazSourceFileManager.NewUniqueComponentName(Prefix: string): string;
function IdentifierIsOk(Identifier: string): boolean;
begin
Result:=false;
if (Identifier='') or not IsValidIdent(Identifier) then exit;
if not IsValidIdent(Identifier) then exit;
if AllKeyWords.DoIdentifier(PChar(Identifier)) then exit;
if IdentifierExists(Identifier) then exit;
if IdentifierExists('T'+Identifier) then exit;
@ -4572,7 +4572,7 @@ begin
exit(Prefix);
while (Prefix<>'') and (Prefix[length(Prefix)] in ['0'..'9']) do
System.Delete(Prefix,length(Prefix),1);
if (Prefix='') or (not IsValidIdent(Prefix)) then
if not IsValidIdent(Prefix) then
Prefix:='Resource';
i:=0;
repeat
@ -6845,7 +6845,7 @@ begin
CTErrorLine:=0;
CTErrorCol:=0;
if (AComponentClassName='') or (not IsValidIdent(AComponentClassName)) then
if not IsValidIdent(AComponentClassName) then
begin
DebugLn(['TLazSourceFileManager.FindComponentClass invalid component class name "',AComponentClassName,'"']);
exit(mrCancel);
@ -7017,7 +7017,7 @@ begin
Quiet:=([ofProjectLoading,ofQuiet]*Flags<>[]);
HideAbort:=not (ofProjectLoading in Flags);
if (AComponentClassName='') or (not IsValidIdent(AComponentClassName)) then
if not IsValidIdent(AComponentClassName) then
begin
DebugLn(['TLazSourceFileManager.LoadComponentDependencyHidden invalid component class name "',AComponentClassName,'"']);
exit(mrCancel);

8
lcl/lazhelpintf.pas
View File

@ -1959,7 +1959,7 @@ begin
for i:=0 to Count-1 do begin
HelpDB:=Items[i];
Path:=HelpDB.ID;
if (Path='') or (not IsValidIdent(Path)) then continue;
if not IsValidIdent(Path) then continue;
Storage.AppendBasePath(Path);
try
HelpDB.Load(Storage);
@ -1978,7 +1978,7 @@ begin
for i:=0 to Count-1 do begin
HelpDB:=Items[i];
Path:=HelpDB.ID;
if (Path='') or (not IsValidIdent(Path)) then continue;
if not IsValidIdent(Path) then continue;
Storage.AppendBasePath(Path);
try
HelpDB.Save(Storage);
@ -2069,7 +2069,7 @@ begin
for i:=0 to Count-1 do begin
Viewer:=Items[i];
Path:=Viewer.StorageName;
if (Path='') or (not IsValidIdent(Path)) then continue;
if not IsValidIdent(Path) then continue;
Storage.AppendBasePath(Path);
try
Viewer.Load(Storage);
@ -2088,7 +2088,7 @@ begin
for i:=0 to Count-1 do begin
Viewer:=Items[i];
Path:=Viewer.StorageName;
if (Path='') or (not IsValidIdent(Path)) then continue;
if not IsValidIdent(Path) then continue;
Storage.AppendBasePath(Path);
try
Viewer.Save(Storage);

2
lcl/lresources.pp
View File

@ -1358,7 +1358,7 @@ begin
if Length(Result) > 0 then
LFMStream.Read(Result[1],length(Result));
LFMStream.Position:=0;
if (Result='') or (not IsValidIdent(Result)) then
if not IsValidIdent(Result) then
Result:='';
end;

2
packager/addtopackagedlg.pas
View File

@ -1122,7 +1122,7 @@ begin
IDEComponentPalette.FindComponent(fLastNewComponentAncestorType));
// create unique classname
if (not IsValidIdent(ClassNameEdit.Text)) or (ClassNameEdit.Text='') then
if not IsValidIdent(ClassNameEdit.Text) then
ClassNameEdit.Text:=IDEComponentPalette.CreateNewClassName(
fLastNewComponentAncestorType);
// choose the same page name

2
packager/lpkcache.pas
View File

@ -308,7 +308,7 @@ begin
if not FilenameIsAbsolute(LPKFilename) then exit;
if CompareFilenames(ExtractFileExt(LPKFilename),'.lpk')<>0 then exit;
PkgName:=ExtractFileNameOnly(LPKFilename);
if (PkgName='') or not IsValidIdent(PkgName) then exit;
if not IsValidIdent(PkgName) then exit;
Result:=true;
end;

2
packager/packagedefs.pas
View File

@ -2225,7 +2225,7 @@ begin
end;
// check build macros
if (MacroName<>'') and IsValidIdent(MacroName) then
if IsValidIdent(MacroName) then
begin
Values:=GetBuildMacroValues(CompilerOptions,true);
if Values<>nil then begin