webBroker_表格某一行样式

  FDQuery1.First;
  while not(FDQuery1.Eof) do      begin
   if FDQuery1.Fields.FieldByNumber(1).AsString = Request.QueryFields.Values['aID']   then   aHTMLtext.Add(' <tr style="background-color:lightblue;" > ')
   else
    aHTMLtext.Add(' <tr  > ');

    for j := 1 to FDQuery1.FieldCount do        begin
      aHTMLtext.Add('<td>');
      aHTMLtext.Add(FDQuery1.Fields.FieldByNumber(j).AsString);   //  所有 值
      aHTMLtext.Add('</td>');
    end;
          aHTMLtext.Add('<td> <a onclick="return confirm(''确认删除'+FDQuery1.Fields.FieldByNumber(2).AsString +'？'')"    href ="/deleteBug?DeleteID='
                    + FDQuery1.Fields.FieldByNumber(1).AsString +'">删除</a>'
                 //   + '&nbsp<form action="editBug" method="get">  <button type="submit">ddd面</button></form>'
            + '&nbsp<input type="button"   value="编辑" onclick="location.href=''http://127.0.0.1:8080/editBug?aID='
               + FDQuery1.Fields.FieldByNumber(1).AsString + '&b='  + FDQuery1.Fields.FieldByNumber(2).AsString + '&c='  + FDQuery1.Fields.FieldByNumber(3).AsString +'''" />'
                     +'</td>  ');
    aHTMLtext.Add(' </tr> ');
    FDQuery1.Next;
  end;