Подсчет обращений
Код для подсчета обращений весьма прост. Для поля на форме, которое было выбрано, мы проходим через все записи и добавляем единичку в соответствующую запись при совпадении информации.
if DataRec.Author <> '' then
begin
{$IFDEF DEBUG}
writeln('Author: ',DataRec.Author,'<BR>');
{$ENDIF}
for i:=1 to
Books16 do
if
Pos(DataRec.Author,Book16[i].Author) <> 0 then
Inc(Result16[i]);
for i:=1 to
Books32 do
if
Pos(DataRec.Author,Book32[i].Author) <> 0 then
Inc(Result32[i])
end;
Заметим, что конструкция {$IFDEF DEBUG} может быть использована для вывода значения входного поля в стандартный вывод, так что мы можем использовать наше CGI приложение для отладки формы. Отладка вашего CGI приложения может оказать трудной задачей, поскольку вам нужен Web сервер и браузер для этого...
