Unit bbdebugtools

Uses

Classes, Interfaces, Objects and Records

Constants

Description

Logging and benchmarking functions for debugging

Not supposed to be used in production

procedure log(const s: string);

procedure startTiming(const title:string='global');

procedure stopTiming(const title:string='global');

procedure stoplogging();

TStringNotifyEvent = procedure(message: string) of object;

logging: boolean=false;

logFileCreated: boolean=false;

logFile: TextFile;

logFileSection: TRTLCriticalSection;

logFileName: string;

timing: TStringList=nil;

OnLog: TStringNotifyEvent = nil;