GetCountRecordToStream

Функция GetCountRecordToStream() возвращает количество записей в потоке, полученного с помощью функции StreamReadFromDatabase().

GetCountRecordToStream(Stream): Integer
Stream: TStream	Поток-приемник
Функция возвращает количество записей в потоке

Пример вызова:

{Pascal Script}
Var
    res, f: Integer;
    beginData, endData: TDate;
    stream: TMemoryStream;
    nameChannel: String = 'Температура 1';

Begin
    beginData := now-1;
    endData := now;

    stream := TMemoryStream.Create;
    try
      res := StreamReadFromDatabase(beginData, endData, nameChannel, stream);
      if res = 0 then
        begin
          f := GetCountRecordToStream(stream);
          AddToDebugLog('Количество записей канала "Температура 1" = ' + intToStr(f));
        end
      else
        AddToDebugLog('Ошибка получения данных канала "Температура 1" = ' + intToStr(res));

    finally
      stream.Free;
    end;
end.

Подробную информацию об "Окне отладочной информации" можно почитать здесь.