paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:20:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazsvnpkg: fixed combining date+time

Browse Source 
git-svn-id: trunk@47629 -
This commit is contained in:
mattias 2015-02-07 12:06:00 +00:00
parent 4329809517
commit 2d94fffb1c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazsvnpkg/svnclasses.pas
View File

@ -261,7 +261,7 @@ begin
n := StrToInt(Copy(ADateTime, 15, 2)); n := StrToInt(Copy(ADateTime, 15, 2));
s := StrToInt(Copy(ADateTime, 18, 2)); s := StrToInt(Copy(ADateTime, 18, 2));
Result := EncodeDate(y,m,d) + EncodeTime(h,n,s,0); Result := ComposeDateTime( EncodeDate(y,m,d), EncodeTime(h,n,s,0));
end; end;
function SortPathAscending(const Item1, Item2: TSVNStatusItem): Integer; function SortPathAscending(const Item1, Item2: TSVNStatusItem): Integer;