opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Get rid of deprecated and platform symbols.

Browse Source
This commit is contained in:
rosenfield
2007-11-09 12:14:25 +00:00
parent b9d3c32f21
commit 0cc2bd5f7f
5 changed files with 16 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/insertfiles_progress.pas
View File

@ -52,11 +52,12 @@ procedure TfrmInsertFilesProgress.ProcessFiles(Sender: TObject);
end;
var
i,j: Integer;
value, filename : String;
y,m,d,h,mi,s,ms : Word;
FileStream : TFileStream;
zq : TDeferDataSet;
i, j: Integer;
value, filename: String;
dt: TDateTime;
y, m, d, h, mi, s, ms: Word;
FileStream: TFileStream;
zq: TDeferDataSet;
begin
Timer1.Enabled := false;
screen.Cursor := crHourglass;
@ -100,8 +101,9 @@ begin
//Value := stringreplace(Value, '%filesize%', inttostr(size), [rfReplaceAll]);
Value := stringreplace(Value, '%filename%', ExtractFileName(filename), [rfReplaceAll]);
Value := stringreplace(Value, '%filepath%', ExtractFilePath(filename), [rfReplaceAll]);
DecodeDate(FileDateToDateTime(FileAge(filename)), y, m, d);
DecodeTime(FileDateToDateTime(FileAge(filename)), h, mi, s, ms);
FileAge(filename, dt);
DecodeDate(dt, y, m, d);
DecodeTime(dt, h, mi, s, ms);
Value := stringreplace(Value, '%filedate%', Format('%.4d-%.2d-%.2d', [y,m,d]), [rfReplaceAll]);
Value := stringreplace(Value, '%filedatetime%', Format('%.4d-%.2d-%.2d %.2d:%.2d:%.2d', [y,m,d,h,mi,s]), [rfReplaceAll]);
Value := stringreplace(Value, '%filetime%', Format('%.2d:%.2d:%.2d', [h,mi,s]), [rfReplaceAll]);