TLogger

type TLogger = class

protected

  procedure SendStream();

  procedure SendBuffer();

public

  ActiveClasses: TDebugClasses;

  DefaultClasses: TDebugClasses;

  constructor Create;

  destructor Destroy; override;

  function CalledBy();

  procedure Clear;

  function RectToStr();

  function PointToStr();

  procedure Send();

  procedure SendPointer();

  procedure SendCallStack();

  procedure SendException();

  procedure SendHeapInfo();

  procedure SendMemory();

  procedure SendIf();

  procedure SendWarning();

  procedure SendError();

  procedure SendCustomData();

  procedure AddCheckPoint();

  procedure IncCounter();

  procedure DecCounter();

  procedure ResetCounter();

  function GetCounter();

  procedure ResetCheckPoint();

  procedure EnterMethod();

  procedure ExitMethod();

  procedure Watch();

  property Enabled: Boolean; [rw]

  property Channels: TChannelList; [r]

  property LogStack: TStrings; [r]

  property MaxStackCount: Integer; [rw]

  property OnCustomData: TCustomDataNotify; [rw]

end;

TLogger

TObject