# | Line 33 | Line 33 | implementation | |
---|---|---|
33 | ||
34 | procedure TForm1.IBSQLMonitor1SQL(EventText: String; EventTime: TDateTime); | |
35 | begin | |
36 | < | Memo1.Lines.Add(DateTimeToStr(EventTime) + ': ' + EventText); |
37 | < | {$IFDEF WINDOWS} |
38 | < | Application.ProcessMessages; |
39 | < | {$ENDIF} |
36 | > | Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss.zzzz',EventTime) + ': ' + EventText); |
37 | end; | |
38 | ||
39 | end. |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |