不喜欢这种错位的表现形式：

冥界3大法王

[Delphi] 纯文本查看 复制代码

procedure TForm8.N21Click(Sender: TObject);   //获取文件最后修改时间

  procedure DirectoryDateTimeInfo(const path: string);
  var
    sr: TSearchRec;
    modifiedTime: TDateTime; // 修改时间
  begin
    if FindFirst(path, faDirectory, sr) = 0 then
      modifiedTime := FileDateToDateTime(sr.Time); // 修改时间
    ShowMessage(Format('最后修改时间:"%s"', [DateTimeToStr(modifiedTime)]));
    FindClose(sr);
  end;

begin
  DirectoryDateTimeInfo('C:\Windows\System32\notepad.exe');
end;

能改的简单些吗？

侃遍天下无二人

我也不喜欢，复制粘贴很容易出问题，错位了逻辑就变了

dong555

delphi中我是不喜欢这种在函数、方法中继续写个函数、方法进去，还不如写在外面在调用，也不至于看了比较混乱