From 5e518e1eedc57706acc864f0d7be35b94e200fc6 Mon Sep 17 00:00:00 2001
From: Artem3213212 <cx-1212@yandex.ru>
Date: Sun, 7 Jul 2019 21:06:33 +0300
Subject: [PATCH] Update

---
 AG.PascalTokenizer.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/AG.PascalTokenizer.pas b/AG.PascalTokenizer.pas
index d75b24f..f0a490a 100644
--- a/AG.PascalTokenizer.pas
+++ b/AG.PascalTokenizer.pas
@@ -107,7 +107,12 @@ var
 
 function IsComment(s:string):boolean;
 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;
 
 function IsName(s:string):boolean;