// 测试
procedure TfrmMain.btnDateClick(Sender: TObject);
var
logDate: string;
begin
try
logDate:= FormatDateTime('yyyy-mm-dd hh:nn:ss', now);
mmLine.Lines.Add(logDate);
finally
end;
end;
// 测试
procedure TfrmMain.btnDateClick(Sender: TObject);
var
logDate: string;
begin
try
logDate:= FormatDateTime('yyyy-mm-dd hh:nn:ss', now);
mmLine.Lines.Add(logDate);
finally
end;
end;
// 测试 procedure TfrmMain.btnDateClick(Sender: TObject); var logDate: string; begin try logDate:= FormatDateTime('yyyy-mm-dd hh:nn:ss', now); mmLine.Lines.Add(logDate); finally end; end;