Changeset 476 for Common/UCommon.pas

Timestamp:

Jul 13, 2015, 11:54:55 AM (9 years ago)

Author:

chronos

Message:

• Fixed second fraction read from XML date time.

File:

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

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