paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 13:09:28 +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+');'
+BeautifyCodeOpts.LineEnd
+'begin'+BeautifyCodeOpts.LineEnd
+GetIndentStr(BeautifyCodeOpts.Indent)+
+GetIndentStr(BeautifyCodeOpts.Indent)
+'if '+VariableName+'='+SetPropertyVariablename+' then exit;'
+BeautifyCodeOpts.LineEnd
+GetIndentStr(BeautifyCodeOpts.Indent)+
+GetIndentStr(BeautifyCodeOpts.Indent)
+VariableName+':='+SetPropertyVariablename+';'
+BeautifyCodeOpts.LineEnd
+'end;';

2
components/codetools/definetemplates.pas
View File

@ -3394,7 +3394,7 @@ begin
+';'+Dir+'rtl'+DS+'inc'+DS+'graph'+DS;
if (TargetOS<>'') and (TargetOS<>SrcOS) then
s:=s+';'+Dir+'rtl'+DS+TargetOS+DS;
s:=s+
s:=s
+';'+Dir+'rtl'+DS+SrcOS+DS
+';'+Dir+'rtl'+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
Result:=Result+LineEnding
+' WARNING: TypeData^.ParentInfo<>AClass.ClassParent.ClassInfo('
+DbgS(TypeData^.ParentInfo)+'<>'+
+DbgS(TypeData^.ParentInfo)+'<>'
+DbgS(AClass.ClassParent.ClassInfo)+'<>'+')'+LineEnding;
Result:=Result+' PropCount='+IntToStr(TypeData^.PropCount);
Result:=Result+' UnitName="'+TypeData^.UnitName+'"';

2
ide/makeresstrdlg.pas
View File

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

2
packager/addtopackagedlg.pas
View File

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