我想把数据库里内容输出到网页的形式或文本的形式要怎么做啊？？

文本里的内容是这个样子的
比如： 
编号 姓名 性别 住址    
1 全 T    
2 w F    
3 FF F
在用表格把它框起来  

解决方案 »

  1.   

    參考這個, 將StringGrid 的內容轉為 htmlprocedure SGridToHtml(SG: TStringgrid; Dest: TMemo; BorderSize: Integer); 
    var  
      i, p: integer; 
      SStyle1, SStyle2, Text: string; 
    begin 
      Dest.Clear; 
      Dest.Lines.Add('<html>'); 
      Dest.Lines.Add('<body>'); 
      Dest.Lines.Add('  <table border="' + IntToStr(BorderSize) + '" width="' + 
        IntToStr(SG.Width) + '" height="' + IntToStr(SG.Width) + '">');   for i := 0 to SG.RowCount - 1 do 
      begin 
        Dest.Lines.Add('  <tr>'); 
        for p := 0 to SG.ColCount - 1 do 
        begin 
          SStyle1 := ''; 
          SStyle2 := ''; 
          if fsbold in SG.Font.Style then 
          begin 
            SStyle1 := SStyle1 + '<b>'; 
            SStyle2 := SStyle2 + '</b>'; 
          end; 
          if fsitalic in SG.Font.Style then 
          begin 
            SStyle1 := SStyle1 + '<i>'; 
            SStyle2 := SStyle2 + '</i>'; 
          end; 
          if fsunderline in SG.Font.Style then 
          begin 
            SStyle1 := SStyle1 + '<u>'; 
            SStyle2 := SStyle2 + '</u>'; 
          end; 
          Text := sg.Cells[p, i]; 
          if Text = '' then Text := ' '; 
          Dest.Lines.Add('    <td width="' + IntToStr(sg.ColWidths[p]) + 
            '" height="' + IntToStr(sg.RowHeights[p]) + 
            '"><font color="#' + IntToHex(sg.Font.Color, 6) + 
            '" face="' + SG.Font.Name + '">' + SStyle1 + 
            Text + SStyle2 + '</font></td>'); 
        end; 
        Dest.Lines.Add('  </tr>'); 
      end; 
      Dest.Lines.Add('  </table>'); 
      Dest.Lines.Add('</body>');; 
      Dest.Lines.Add('</html>'); 
    end; // Example, Beispiel 
    procedure TFormCSVInport.Button6Click(Sender: TObject); 
    begin 
      SGridToHtml(StringGrid1, Memo1, 1); 
      Memo1.Lines.SaveToFile('c:\test.html'); 
    end;