Changeset 109 for trunk/Packages/Common/UCommon.pas

Timestamp:

Jul 26, 2016, 11:22:43 PM (8 years ago)

Author:

chronos

Message:

• Modified: Update new packages files.

File:

• trunk/Packages/Common/UCommon.pas (modified) (2 diffs)

trunk/Packages/Common/UCommon.pas

@@ -64 +64 @@
 procedure ExecuteProgram(CommandLine: string);
 procedure FreeThenNil(var Obj);
+function RemoveQuotes(Text: string): string;
 
 
@@ -440 +441 @@
 end;
 
+function RemoveQuotes(Text: string): string;
+begin
+  Result := Text;
+  if (Pos('"', Text) = 1) and (Text[Length(Text)] = '"') then
+    Result := Copy(Text, 2, Length(Text) - 2);
+end;
+
+
 initialization