paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 13:18:16 +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;
end;
function TPascalParserTool.ReadUsesSection(
ExceptionOnError: boolean): boolean;
function TPascalParserTool.ReadUsesSection(ExceptionOnError: boolean): boolean;
{ parse uses section
examples:
uses name1, name2 in '', name3.dot;
}
var
IsUses: Boolean;
@ -2021,13 +2019,11 @@ begin
ReadNextAtom;
end;
function TPascalParserTool.ReadRequiresSection(ExceptionOnError: boolean
): boolean;
function TPascalParserTool.ReadRequiresSection(ExceptionOnError: boolean): boolean;
{ parse requires section
examples:
requires name1, name2, name3;
}
begin
CreateChildNode;
@ -2049,8 +2045,7 @@ begin
Result:=true;
end;
function TPascalParserTool.ReadContainsSection(ExceptionOnError: boolean
): boolean;
function TPascalParserTool.ReadContainsSection(ExceptionOnError: boolean): boolean;
{ parse contains section
The uses section of a Delphi package