// 测试
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;