Changeset 226 for Common/UURI.pas

Timestamp:

Apr 6, 2011, 3:08:13 PM (15 years ago)

Author:

george

Message:

• Added: Component CoolTranslator for application localization.

File:

• Common/UURI.pas (modified) (3 diffs)

Common/UURI.pas

@@ -238 +238 @@
     Scheme := TURI(Source).Scheme;
     Authority := TURI(Source).Authority;
-    Path := TURI(Source).Path;
+    Path.Assign(TURI(Source).Path);
     Fragment := TURI(Source).Fragment;
     Query := TURI(Source).Query;
@@ -310 +310 @@
     RightCutString(AValue, Extension, ExtensionSeparator);
     Extension := ExtensionSeparator + Extension;
-  end;
+  end else Extension := '';
   if Pos(DirectorySeparator, AValue) > 0 then RightCutString(AValue, Name, DirectorySeparator)
     else begin
@@ -319 +319 @@
     LeftCutString(AValue, Drive, DriveSeparator);
     Drive := Drive + DriveSeparator;
-  end;
+  end else Drive := '';
   Directory.AsString := AValue;
 end;