RAD Studio 10.2.3 测试√
procedure TForm1.Button_27Click(Sender: TObject);
var
i: Integer;
begin
i := FileAge('D:\AAA_A_Test\Log\test.txt');
Memo_1.Lines.Add('i = ' + DateTimeToStr(FileDateToDateTime(i)));
i := FileAge('D:\AAA_A_Test\Log\test2.txt');
Memo_1.Lines.Add('i = ' + DateTimeToStr(FileDateToDateTime(i)));
end;
一点点笔记,以便以后翻阅。