Галактика в вопросах и ответах

Код: Выделить всё

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  

Код: Выделить всё

{Log}
  FP_DebugLog=out\%user%\fplog.log

Код: Выделить всё

IntInit
...
displ('test')
...
ShowErrors
....
ExitProc