Интернет-решения от доктора Боба




Таблицы


Использование фреймов для показа содержимого индекса и одной записи это одна из возможностей. Но имеется возможность отображать это и как таблицу. HTML 3.0 поддерживает ТАБЛИЦЫ, которое является одним из наиболее используемых свойств наших дней. Таблицы с рамками и без могут использоваться для всего, что вы не можете сделать нормальным путем (например, нет метода иметь множественные колонки в HTML странице, без использования таблиц). В нашем случае это может быть двух колоночная таблица с рамкой. В левой колонке мы просто отображаем название каждого поля, а правой колонке - значение этого поля. Подобно предыдущему текстовому решению, единственная вещь которую нужно изменить это коды заголовков в коды таблицы. <TR> начинает новую строку таблицы, заканчивая ее тегом </TR>. Тег <TD> открывает новое поле , закачивающее тегом </TD>. Для окончательно преобразования, мы должны написать специальную индексную HTML страницу как файл (файл g в нашем случае). Преобразованный листинг выглядит следующим образом:

if (keys >= 0) then

begin

  writeln(g,'<TR>');

  write(g,'<TD><AHREF="../',FileName,'/',PageNr(RecNr),

'"TARGET="Main">');

  writeln(g,RecNr:3,'</A></TD>')

end;

  { print fields }

writeln(f,'<TABLE BORDER>');

for i:=0 to

Pred(FieldCount) do if

FieldTypes[i] > sf_UnKnown then

begin

  writeln(f,'<TR>');

  write(f,'<TD><B>',FieldDefs[i].Name,'</B></TD><TD>');

  if FieldTypes[i] = sf_Memo then

    writeMemo(f,Fields[i])

  else writeln(f,Fields[i].AsString);

  writeln(f,'</TD></TR>');

  if (keys >= i) then

    writeln(g,'<TD>',Fields[i].AsString,'</TD>')

end;

if (keys >= 0) then writeln(g,'</TR>');

writeln(f,'</TABLE>');




Содержание  Назад  Вперед