サンプル: "StringGridをHTMLのテーブルに変換"

１６番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"StringGridをHTMLのテーブルに変換"




こんにちは、凛です。
StringGridをHTML形式のテーブルに変換する例です。
とってもシンプルな例ですので、いろいろカスタマイズして使って下さい。

procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
  i:integer;
  function MakeARow(ColList:TStrings):String;
  var
    cc:integer;
  begin
    result:='<TR>';
    for cc:= 0 to ColList.Count-1 do result:=
        result+'<TD>'+ColList[cc]+'</TD>';
    result:=result+'</TR>';
  end;
begin
  sl:=TStringList.Create;
  try
    sl.Add('<HTML><head><title>テストテーブル</title></head><BODY>');
    sl.add('<TABLE BORDER>');
    for i:= 0 to StringGrid1.RowCount-1 do
       sl.Add(MakeARow(StringGrid1.Rows[i]));
    sl.add('</TABLE>');
    sl.add('</BODY>');
    sl.SaveToFile('c:\poo.htm');
  finally
    sl.Free;
  end;
end;

//サンプルデータを作るだけの目的
procedure TForm1.FormCreate(Sender: TObject);
var
  c,r:integer;
begin
  for r:= 0 to StringGrid1.RowCount-1 do
    for c:= 0 to StringGrid1.ColCount-1 do
      StringGrid1.Cells[c,r]:=IntToStr(random(1000));
end;
                              2000/10/27(Fri) 09:10am  MXB01744 凛
 



Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。