"Интернет решения от доктора Боба" - читать интересную книгу автора (Swart Bob)

2.2.9. Подсчет обращений

Код для подсчета обращений весьма прост. Для поля на форме, которое было выбрано, мы проходим через все записи и добавляем единичку в соответствующую запись при совпадении информации.

if DataRec.Author lt;gt; '' then

begin

{$IFDEF DEBUG}

  writeln('Author: ',DataRec.Author,'lt;BRgt;');

{$ENDIF}

  for i:=1 to Books16 do

    if Pos(DataRec.Author,Book16[i].Author) lt;gt; 0 then

      Inc(Result16[i]);

  for i:=1 to Books32 do

    if Pos(DataRec.Author,Book32[i].Author) lt;gt; 0 then

Inc(Result32[i])

end;

Заметим, что конструкция {$IFDEF DEBUG} может быть использована для вывода значения входного поля в стандартный вывод, так что мы можем использовать наше CGI приложение для отладки формы. Отладка вашего CGI приложения может оказать трудной задачей, поскольку вам нужен Web сервер и браузер для этого…