Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Перевести TStringGrid в HTML(2)

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

Перевести TStringGrid в HTML(2)

Code:

procedure ToHtml(SG: TStringGrid; S: string);
Var i,j:integer;
   t:TStringList;
begin
try
t:=TStringList.Create;
t.Add('<table border="1" align="center" cellspacing="0" rules="all">');  //начало таблицы
 
t.Add('<tr>');  //начало заголовков
For j:=0 To SG.ColCount-1 Do
  t.Add('<th>'+SG.Cells[j,0]+'</th>');  //заголовки
t.Add('</tr>');  //конец заголовков
 
{ProgressBar1.Max:=SG.RowCount}
 
For i:=1 To SG.RowCount Do
 begin
   t.Add('<tr>'); //начало ячеек
   For j:=0 To SG.ColCount-1 Do
    t.Add('<td>'+SG.Cells[j,i]+'</td>');  //ячейки
   t.Add('</tr>'); //конец ячеек
 {ProgressBar1.Position:=i}
 end;
 
  t.Add('</table>');  //конец таблицы
  t.SaveToFile(S); //сохраняем в файл
 
{ProgressBar1.Position:=0}
finally
t.Free;
end;
end;

Пример вызова:

Code:

ToHtml(StringGrid1, 'C:\123.html');

Автор: Kostas

Взято из http://forum.sources.ru

Статья Перевести TStringGrid в HTML(2) раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TStringGrid и TDrawGrid ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
28.03.2024 23:14:10/0.03236198425293/0