Wie verwendet man TIBSQLMonitor?

[Tobinator]

Hi,
danke, aber ich habs jetzt anders gelöst:

Delphi-Quellcode:

procedure TFMain.IBSQLMonitor1SQL(EventText: string; EventTime: TDateTime);

  function MyTranslate(Text:String):String;
    var i:integer;
  begin
    result:='';
    for i := 0 to length(Text) - 1 do
      if (ord(Text[i])>31) then
        result:=result+Text[i];
  end;

begin
  Memo1.Lines.Add(MyTranslate(Eventtext));
end;