Code: Select all
procedure TDM.MSSQLMonitor1SQL(Sender: TObject; Text: string;
Flag: TDATraceFlag);
begin
MSQuery1.SQL.Text := 'INSERT INTO LOG_TABLE(MSG) VALUES(Text)';
MSQuery1.ExecSQL;
end;
I don't know why?
Code: Select all
procedure TDM.MSSQLMonitor1SQL(Sender: TObject; Text: string;
Flag: TDATraceFlag);
begin
MSQuery1.SQL.Text := 'INSERT INTO LOG_TABLE(MSG) VALUES(Text)';
MSQuery1.ExecSQL;
end;
Code: Select all
var
InLogging: boolean = False;
implementation
{$R *.dfm}
...
procedure TMainForm.MSSQLMonitor1SQL(Sender: TObject; Text: string;
Flag: TDATraceFlag);
begin
if not InLogging then begin
InLogging := True;
try
MSQuery2.SQL.Text := ...;
MSQuery2.ExecSQL;
finally
InLogging := False;
end;
end;
end;