Update
This commit is contained in:
@@ -107,7 +107,12 @@ var
|
|||||||
|
|
||||||
function IsComment(s:string):boolean;
|
function IsComment(s:string):boolean;
|
||||||
begin
|
begin
|
||||||
Result:=s.startswith('{')or s.startswith('(*')or s.startswith('//');
|
Result:=(s.startswith('{')and not s.startswith('{$')) or s.startswith('(*')or s.startswith('//');
|
||||||
|
end;
|
||||||
|
|
||||||
|
function IsDirective(s:string):boolean;
|
||||||
|
begin
|
||||||
|
Result:=s.startswith('{$');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function IsName(s:string):boolean;
|
function IsName(s:string):boolean;
|
||||||
|
|||||||
Reference in New Issue
Block a user