ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/isqlmonitor/RemoteMonitorFormUnit.pas
(Generate patch)

Comparing ibx/trunk/examples/isqlmonitor/RemoteMonitorFormUnit.pas (file contents):
Revision 32 by tony, Tue Jul 14 15:31:25 2015 UTC vs.
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC

# 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.

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines