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

clean up

Browse Source 
git-svn-id: trunk@6466 -
This commit is contained in:
mattias 2005-01-03 11:41:28 +00:00
parent 4d8cc68ce2
commit 4e074259bb
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/basiccodetools.pas
View File

@ -39,10 +39,8 @@ uses
}
// comments
function FindNextNonSpace(const ASource: string; StartPos: integer
): integer;
function FindPrevNonSpace(const ASource: string; StartPos: integer
): integer;
function FindNextNonSpace(const ASource: string; StartPos: integer): integer;
function FindPrevNonSpace(const ASource: string; StartPos: integer): integer;
function FindCommentEnd(const ASource: string; StartPos: integer;
NestedComments: boolean): integer;
function IsCommentEnd(const ASource: string; EndPos: integer): boolean;
@ -1149,10 +1147,7 @@ end;
function FindPrevNonSpace(const ASource: string; StartPos: integer
): integer;
var
SrcLen: integer;
begin
SrcLen:=length(ASource);
Result:=StartPos;
while (Result>=1) and (ASource[Result] in [' ',#9,#10,#13]) do
dec(Result);