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

Codetools: formatting

Browse Source 
git-svn-id: trunk@41574 -
This commit is contained in:
juha 2013-06-07 11:21:33 +00:00
parent 0d20e5d2a5
commit e724b2befa
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/pascalparsertool.pas
View File

@ -1952,13 +1952,11 @@ begin
Result:=true; Result:=true;
end; end;
function TPascalParserTool.ReadUsesSection( function TPascalParserTool.ReadUsesSection(ExceptionOnError: boolean): boolean;
ExceptionOnError: boolean): boolean;
{ parse uses section { parse uses section
examples: examples:
uses name1, name2 in '', name3.dot; uses name1, name2 in '', name3.dot;
} }
var var
IsUses: Boolean; IsUses: Boolean;
@ -2021,13 +2019,11 @@ begin
ReadNextAtom; ReadNextAtom;
end; end;
function TPascalParserTool.ReadRequiresSection(ExceptionOnError: boolean function TPascalParserTool.ReadRequiresSection(ExceptionOnError: boolean): boolean;
): boolean;
{ parse requires section { parse requires section
examples: examples:
requires name1, name2, name3; requires name1, name2, name3;
} }
begin begin
CreateChildNode; CreateChildNode;
@ -2049,8 +2045,7 @@ begin
Result:=true; Result:=true;
end; end;
function TPascalParserTool.ReadContainsSection(ExceptionOnError: boolean function TPascalParserTool.ReadContainsSection(ExceptionOnError: boolean): boolean;
): boolean;
{ parse contains section { parse contains section
The uses section of a Delphi package The uses section of a Delphi package