掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridからHTMLのTabel形式で吐き出すには？ (ID:22437)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になります。 StringGridに表示されたデータをHTMLのTable形式に吐き出す方法を教えていただけないでしょうか。 StringGridはOnDrawCellイベントで、条件により色付けされている状態です。 下記コードで基本的な吐き出しは出来てるのですが、StringGridのセル毎の背景色、フォント設定も反映させたいと考えています。 こんなサイトはいかが？でも結構ですので、よろしくお願いいたします。 procedure TForm1.StringGridToHtmlTable(SG: TStringGrid; var strHtmlTable: string); var r, c: Integer; SL: TStringList; strHtmlColor: string; begin SL := TStringList.Create; try with SL do begin Add('<table border="1">'); for r:=0 to SG.RowCount-1 do begin Add('<tr>'); Add('<td nowrap>' + IntToStr(r) + '</td>'); for c:=0 to SG.ColCount-1 do begin SG.Canvas.Pixels if IsNumber(SG.Cells[c, r]) then Add('<td align="right" nowrap>' + SG.Cells[c, r] + '</td>') else Add('<td align="left" nowrap>' + SG.Cells[c, r] + '</td>'); end; Add('</tr>'); end; Add('</table>'); end; strHtmlTable := SL.Text; finally FreeAndNil(SL); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.