paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 20:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

remove excess string concatenation "+"

Browse Source 
git-svn-id: trunk@7975 -
This commit is contained in:
micha 2005-10-21 11:50:43 +00:00
parent d06a5cb864
commit 0300aa4c2e
5 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/codecompletiontool.pas
View File

@ -1306,10 +1306,10 @@ var AccessParam, AccessParamPrefix, CleanAccessFunc, AccessFunc,
+'(const '+SetPropertyVariablename+': '+PropType+');' +'(const '+SetPropertyVariablename+': '+PropType+');'
+BeautifyCodeOpts.LineEnd +BeautifyCodeOpts.LineEnd
+'begin'+BeautifyCodeOpts.LineEnd +'begin'+BeautifyCodeOpts.LineEnd
+GetIndentStr(BeautifyCodeOpts.Indent)+ +GetIndentStr(BeautifyCodeOpts.Indent)
+'if '+VariableName+'='+SetPropertyVariablename+' then exit;' +'if '+VariableName+'='+SetPropertyVariablename+' then exit;'
+BeautifyCodeOpts.LineEnd +BeautifyCodeOpts.LineEnd
+GetIndentStr(BeautifyCodeOpts.Indent)+ +GetIndentStr(BeautifyCodeOpts.Indent)
+VariableName+':='+SetPropertyVariablename+';' +VariableName+':='+SetPropertyVariablename+';'
+BeautifyCodeOpts.LineEnd +BeautifyCodeOpts.LineEnd
+'end;'; +'end;';

2
components/codetools/definetemplates.pas
View File

@ -3394,7 +3394,7 @@ begin
+';'+Dir+'rtl'+DS+'inc'+DS+'graph'+DS; +';'+Dir+'rtl'+DS+'inc'+DS+'graph'+DS;
if (TargetOS<>'') and (TargetOS<>SrcOS) then if (TargetOS<>'') and (TargetOS<>SrcOS) then
s:=s+';'+Dir+'rtl'+DS+TargetOS+DS; s:=s+';'+Dir+'rtl'+DS+TargetOS+DS;
s:=s+ s:=s
+';'+Dir+'rtl'+DS+SrcOS+DS +';'+Dir+'rtl'+DS+SrcOS+DS
+';'+Dir+'rtl'+DS+TargetProcessor+DS +';'+Dir+'rtl'+DS+TargetProcessor+DS
+';'+Dir+'rtl'+DS+TargetOS+DS+TargetProcessor+DS; +';'+Dir+'rtl'+DS+TargetOS+DS+TargetProcessor+DS;

2
designer/jitforms.pp
View File

@ -431,7 +431,7 @@ begin
and (TypeData^.ParentInfo<>AClass.ClassParent.ClassInfo) then and (TypeData^.ParentInfo<>AClass.ClassParent.ClassInfo) then
Result:=Result+LineEnding Result:=Result+LineEnding
+' WARNING: TypeData^.ParentInfo<>AClass.ClassParent.ClassInfo(' +' WARNING: TypeData^.ParentInfo<>AClass.ClassParent.ClassInfo('
+DbgS(TypeData^.ParentInfo)+'<>'+ +DbgS(TypeData^.ParentInfo)+'<>'
+DbgS(AClass.ClassParent.ClassInfo)+'<>'+')'+LineEnding; +DbgS(AClass.ClassParent.ClassInfo)+'<>'+')'+LineEnding;
Result:=Result+' PropCount='+IntToStr(TypeData^.PropCount); Result:=Result+' PropCount='+IntToStr(TypeData^.PropCount);
Result:=Result+' UnitName="'+TypeData^.UnitName+'"'; Result:=Result+' UnitName="'+TypeData^.UnitName+'"';

2
ide/makeresstrdlg.pas
View File

@ -720,7 +720,7 @@ begin
if ResStrExistsInCurrentSection(Result) then begin if ResStrExistsInCurrentSection(Result) then begin
i:=2; i:=2;
while ResStrExistsInCurrentSection(Result+IntToStr(i)) do inc(i); while ResStrExistsInCurrentSection(Result+IntToStr(i)) do inc(i);
Result:=Result++IntToStr(i); Result:=Result+IntToStr(i);
end; end;
end; end;

2
packager/addtopackagedlg.pas
View File

@ -1818,7 +1818,7 @@ begin
NewFileName:=lowercase(NewFileName); NewFileName:=lowercase(NewFileName);
// append pascal file extension // append pascal file extension
NewFileName:=NewFileName+ NewFileName:=NewFileName
+EnvironmentOpts.PascalExtension[EnvironmentOptions.PascalFileExtension]; +EnvironmentOpts.PascalExtension[EnvironmentOptions.PascalFileExtension];
// prepend path // prepend path
if LazPackage.HasDirectory then if LazPackage.HasDirectory then