Changeset 28 for trunk/UHtmlClasses.pas

Timestamp:

Sep 10, 2022, 10:21:48 PM (20 months ago)

Author:

chronos

Message:

• Modified: Do not create all application forms at initialization phase but dynamically.

File:

• trunk/UHtmlClasses.pas (modified) (1 diff)

trunk/UHtmlClasses.pas

@@ -241 +241 @@
   I := 1;
   Matched := True;
-  while (I < Length(Source)) and Matched do begin
+  while (I <= Length(Source)) and Matched do begin
     Matched := False;
-    if (Source[I] >= 'A') and (Source[I] <= 'Z') then Matched := True;
-    if (Source[I] >= 'a') and (Source[I] <= 'z') then Matched := True;
-    if (Source[I] >= '0') and (Source[I] <= '9') then Matched := True;
-    for J := 1 to Length(Allowed) do
+    if (Source[I] >= 'A') and (Source[I] <= 'Z') then Matched := True
+    else if (Source[I] >= 'a') and (Source[I] <= 'z') then Matched := True
+    else if (Source[I] >= '0') and (Source[I] <= '9') then Matched := True
+    else for J := 1 to Length(Allowed) do
       if Source[I] = Allowed[J] then Matched := True;
     if Matched then Inc(I);
   end;
   if (Delimiter = Copy(Source, I, Length(Delimiter))) or (I = Length(Source)) then begin
-    Output := Copy(Source, 1, I-1);
+    Output := Copy(Source, 1, I - 1);
     Delete(Source, 1, Length(Output) + Length(Delimiter));
     Result := True;