Код: Выделить всё
var
Log: AtlProtocol;
var
LogFileName: string;
LogFileName := 'CheckT.log';
Log.AutoFlush := true
Log.LogFile := LogFileName
Log.Visible := true
Log.LogStartVisual('Проверка таблицы T', 0)
_loop tmSaldoBU
{
Log.LogLine(APE_ERROR,'Некоторое сообщение ')
Log.LogNextVisual('Проверка следующей записи таблицы')
}
Log.LogCommit
Log.LogStopVisual
Log.Refresh