paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 15:25:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codehelp: removing pasdoc

Browse Source 
git-svn-id: trunk@16844 -
This commit is contained in:
mattias 2008-10-02 09:29:21 +00:00
parent 626815db77
commit 36f21372de
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/basiccodetools.pas
View File

@ -61,7 +61,8 @@ function CleanCodeFromComments(const DirtyCode: string;
NestedComments: boolean): string; NestedComments: boolean): string;
function ExtractCommentContent(const ASource: string; CommentStart: integer; function ExtractCommentContent(const ASource: string; CommentStart: integer;
NestedComments: boolean; NestedComments: boolean;
TrimStart: boolean = false; TrimEnd: boolean = false): string; TrimStart: boolean = false; TrimEnd: boolean = false;
TrimPasDoc: boolean = false): string;
function FindMainUnitHint(const ASource: string; out Filename: string): boolean; function FindMainUnitHint(const ASource: string; out Filename: string): boolean;
// indent // indent
@ -2787,7 +2788,8 @@ begin
end; end;
function ExtractCommentContent(const ASource: string; CommentStart: integer; function ExtractCommentContent(const ASource: string; CommentStart: integer;
NestedComments: boolean; TrimStart: boolean; TrimEnd: boolean): string; NestedComments: boolean; TrimStart: boolean; TrimEnd: boolean;
TrimPasDoc: boolean): string;
var var
CommentEnd: LongInt; CommentEnd: LongInt;
StartPos: LongInt; StartPos: LongInt;
@ -2820,6 +2822,10 @@ begin
dec(EndPos); dec(EndPos);
end; end;
end; end;
if TrimPasDoc then begin
if (StartPos<EndPos) and (ASource[StartPos]='<') then
inc(StartPos);
end;
if TrimStart then begin if TrimStart then begin
while (StartPos<EndPos) and (ASource[StartPos] in [' ',#9,#10,#13]) do while (StartPos<EndPos) and (ASource[StartPos] in [' ',#9,#10,#13]) do
inc(StartPos); inc(StartPos);

2
ide/codehelp.pas
View File

@ -1847,7 +1847,7 @@ begin
then then
continue; continue;
CommentStr:=ExtractCommentContent(CommentCode.Source,CommentStart, CommentStr:=ExtractCommentContent(CommentCode.Source,CommentStart,
NestedComments,true,true); NestedComments,true,true,true);
if CommentStr<>'' then begin if CommentStr<>'' then begin
if not ItemAdded then begin if not ItemAdded then begin
AddText(Item.ElementName+LineEnding AddText(Item.ElementName+LineEnding