Changeset 118 for trunk

Timestamp:

Feb 18, 2022, 10:31:00 AM (3 years ago)

Author:

chronos

Message:

• Modified: Highlight also floating numbers with decimal point.

File:

• trunk/UVCardHighlighter.pas (modified) (4 diffs)

trunk/UVCardHighlighter.pas

@@ -157 +157 @@
 var
   I: Integer;
-begin
+  DecimalPointUsed: Boolean;
+begin
+  DecimalPointUsed := False;
   if Length(Text) > 0 then begin
     Result := True;
     for I := 1 to Length(Text) do begin
-      if not IsDigit(Text[I]) then begin
+      if not IsDigit(Text[I]) and not (not DecimalPointUsed and (Text[I] = '.')) then begin
         Result := False;
         Break;
       end;
+      if Text[I] = '.' then DecimalPointUsed := True;
     end;
   end else Result := False;
@@ -215 +218 @@
 var
   L: Integer;
+  DecimalPointUsed: Boolean;
 begin
   // FTokenEnd should be at the start of the next Token (which is the Token we want)
@@ -227 +231 @@
 
   L := Length(FLineText);
-  If FTokenPos > L then
+  If FTokenPos > L then begin
     // At line end
-    Exit
+    Exit;
+  end
   else
   if FLineText[FTokenEnd] in [#9, ' '] then begin
@@ -240 +245 @@
   end else
   if IsDigit(FLineText[FTokenEnd]) then begin
-    while (FTokenEnd <= L) and IsDigit(FLineText[FTokenEnd]) do
+    DecimalPointUsed := False;
+    while (FTokenEnd <= L) and (IsDigit(FLineText[FTokenEnd]) or
+    (not DecimalPointUsed and (FLineText[FTokenEnd] = '.'))) do begin
+      if FLineText[FTokenEnd] = '.' then DecimalPointUsed := True;
       Inc(FTokenEnd);
+    end;
   end else begin
     // At None-Space? Find end of None-spaces