From 47735c3d73cc677e519cd33b58232c97729596fa Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Mon, 9 Jun 2008 23:52:56 +0200 Subject: Date/time string formatting revision Added ability to set custom date/time format --- UChecksumDruid.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'UChecksumDruid.pas') diff --git a/UChecksumDruid.pas b/UChecksumDruid.pas index 121be80..188bac0 100644 --- a/UChecksumDruid.pas +++ b/UChecksumDruid.pas @@ -602,11 +602,11 @@ begin s := Format('; Generated by WIN-SFV32 v1 [added for sfv32 compatibility]'#13#10'; Using Tux Commander v%s [%s] on %s'#13#10 + '; http://tuxcmd.sourceforge.net/'#13#10'; '#13#10'; /----'#13#10, [ConstAboutVersion, ConstAboutBuildDate, - FormatDateTime('mm.dd.yyyy "at" hh:nn:ss', Now)]); + SysUtils.FormatDateTime('mm.dd.yyyy "at" hh:nn:ss', Now)]); 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), - FormatDateTime('hh:nn.ss yyyy-mm-dd', Stat^.ModifyTime), ExtractFileName(FileNames[i])]); + SysUtils.FormatDateTime('hh:nn.ss yyyy-mm-dd', Stat^.ModifyTime), ExtractFileName(FileNames[i])]); end; s := s + '; \----'#13#10'; '#13#10; -- cgit v1.2.3