掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
グリッドの列の属性を得るには？ (ID:26081)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
グリッドをHTMLページに保存するprocedure SavetoHTMLで、 グリッドの列が右寄せ表示の列であるときはHTMLページでも右寄せ表示しようと思っています。 procedure TForm1.SavetoHTML(Sg:TStringGrid;FileName:string); var i,j:integer; St:TStringList; S,C:string; begin St:=TStringList.Create; St.clear; try St.Add('<HTML>'); St.Add('<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=Shift_JIS">'); St.Add('<HEAD><TITLE></TITLE></HEAD>'); St.Add('<BODY>'); St.Add('<TABLE BORDER cellspacing=0>'); for i:=0 to Sg.RowCount-1 do begin S:=''; for j:=0 to Sg.ColCount-1 do if j=右寄せ列 then S:=S+'<TD align=right>' +Sg.Cells[j,i]+'<BR>'+ '</TD>' else S:=S+'<TD>' +Sg.Cells[j,i]+'<BR>'+ '</TD>'; St.Add('<TR>'+S+'</TR>'); end; St.Add('</TABLE>'); St.Add('</BODY>'); St.Add('</HTML>'); St.SaveToFile(FileName); finally St.Free; end; end; この場合の j は、どうすれば得られるでしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.