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