Changeset 60 for trunk/UContact.pas

Timestamp:

Dec 9, 2021, 12:07:42 AM (3 years ago)

Author:

chronos

Message:

• Modified: Optimized encoding/decoding of escaped strings.

File:

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

trunk/UContact.pas

@@ -280 +280 @@
 begin
   Result := Copy(Text, Length(Text) - Length(What) + 1, MaxInt) = What;
-  if Result then begin
-    Result := Result;
-  end;
 end;
 
@@ -288 +285 @@
 var
   I: Integer;
+  O: Integer;
 begin
   Result := '';
   I := 1;
+  O := 1;
+  SetLength(Result, Length(Text)); // Preallocate string
   while I <= Length(Text) do begin
-    if Text[I] in [',', '\', ';'] then Result := Result + '\' + Text[I]
-      else Result := Result + Text[I];
+    if Text[I] in [',', '\', ';'] then begin
+        Result[O] := '\';
+        Inc(O);
+        Result[O] := Text[I];
+        SetLength(Result, Length(Result) + 1);
+        Inc(O);
+      end else begin
+        Result[O] := Text[I];
+        Inc(O);
+      end;
     Inc(I);
   end;
+  SetLength(Result, O - 1);
 end;
 
@@ -301 +310 @@
 var
   I: Integer;
+  O: Integer;
   Escaped: Boolean;
 begin
   Result := '';
   I := 1;
+  O := 1;
   Escaped := False;
+  SetLength(Result, Length(Text)); // Preallocate string
   while I <= Length(Text) do begin
     if Escaped then begin
-      Result := Result + Text[I];
+      Result[O] := Text[I];
+      Inc(O);
       Escaped := False;
     end else begin
       if Text[I] = '\' then begin
         Escaped := True;
-      end else Result := Result + Text[I];
+      end else begin
+        Result[O] := Text[I];
+        Inc(O);
+      end;
     end;
     Inc(I);
   end;
+  SetLength(Result, O - 1);
 end;
 
@@ -901 +918 @@
           NewProperty.Attributes.Delete(0);
         end;
-        NewProperty.Value := DecodeEscaped(Value);
+        NewProperty.Value := Value;
         NewProperty.EvaluateAttributes;
       end else begin