Сохранение и загрузка, импорт и экспорт

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');