Changeset 32
- Timestamp:
- Jul 26, 2016, 9:01:46 AM (8 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/CoolDisk.lpr
r31 r32 5 5 uses 6 6 {$IFDEF UNIX} 7 cthreads, 7 cthreads, clocale, 8 8 {$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset -
trunk/Packages/Common/UXMLUtils.pas
r15 r32 99 99 if Pos('Z', XMLDateTime) > 0 then 100 100 LeftCutString(XMLDateTime, Part, 'Z'); 101 SecondFraction := StrToFloat('0 .'+ Part);101 SecondFraction := StrToFloat('0' + DecimalSeparator + Part); 102 102 Millisecond := Trunc(SecondFraction * 1000); 103 103 end else begin
Note:
See TracChangeset
for help on using the changeset viewer.