diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-11-09 16:19:28 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-11-09 16:19:28 +0100 |
| commit | e46108835fb7d7aa4461f6d3d5002456499df804 (patch) | |
| tree | 98daefb0997902d1ba4ec87f352bc1650edc18ef | |
| parent | a2bfc5e9f4c66db6a29810c064b981d772aefb2a (diff) | |
| download | tuxcmd-e46108835fb7d7aa4461f6d3d5002456499df804.tar.xz | |
Fix SFV date/time format stampv0.6.55
| -rw-r--r-- | UChecksumDruid.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/UChecksumDruid.pas b/UChecksumDruid.pas index bbe0b73..284060e 100644 --- a/UChecksumDruid.pas +++ b/UChecksumDruid.pas @@ -605,7 +605,7 @@ begin for i := 0 to FileNames.Count - 1 do begin Stat := Engine.GetFileInfoSL(FileNames[i]); if Assigned(Stat) then s := s + Format('; %s %s %s'#13#10, [PadRightStr(IntToStr(Stat^.Size), 11), - SysUtils.FormatDateTime('hh:nn.ss yyyy-mm-dd', Stat^.ModifyTime), ExtractFileName(FileNames[i])]); + FormatDate(Stat^.ModifyTime, True, True, 999, 999, 1, '%Y-%m-%d', '%k:%M.%S'), ExtractFileName(FileNames[i])]); end; s := s + '; \----'#13#10'; '#13#10; |