Перевести TStringGrid в HTML

Оформил: DeeCo

{ The SGridToHtml() function converts a Stringgrid to a HTML Code. 
  Parameters: SG: TStringGrid to convert 
              Dest: TMemo to show the HTML Code 
              BorderSize: Size of border (0 = show no border) 
{ 
  Mit der Funktion SGridToHtml() konnen StringGrids in HTML Code umgewandelt werden. 
  SG bezieht sich auf das TStringGrid, welches codiert werden soll. 
  in Dest (vom Typ TMemo) wird der HTML Code erzeugt. 
  BorderSize bestimmt, wie dick der Tabellenrahmen sein soll. 0 = kein Rahmen 
}

 procedure SGridToHtml(SG: TStringgrid; Dest: TMemo; BorderSize: Integer);
 var
    i, p: integer;
   SStyle1, SStyle2, Text: string;
 begin
   Dest.Clear;
   Dest.Lines.Add('<html>');
   Dest.Lines.Add('<body>');
   Dest.Lines.Add('  <table border="' + IntToStr(BorderSize) + '" width="' +
     IntToStr(SG.Width) + '" height="' + IntToStr(SG.Width) + '">');

   for i := 0 to SG.RowCount - 1 do
   begin
     Dest.Lines.Add('  <tr>');
     for p := 0 to SG.ColCount - 1 do
     begin
       SStyle1 := '';
       SStyle2 := '';
       if fsbold in SG.Font.Style then
       begin
         SStyle1 := SStyle1 + '<b>';
         SStyle2 := SStyle2 + '</b>';
       end;
       if fsitalic in SG.Font.Style then
       begin
         SStyle1 := SStyle1 + '<i>';
         SStyle2 := SStyle2 + '</i>';
       end;
       if fsunderline in SG.Font.Style then
       begin
         SStyle1 := SStyle1 + '<u>';
         SStyle2 := SStyle2 + '</u>';
       end;
       Text := sg.Cells[p, i];
       if Text = '' then Text := ' ';
       Dest.Lines.Add('    <td width="' + IntToStr(sg.ColWidths[p]) +
         '" height="' + IntToStr(sg.RowHeights[p]) +
         '"><font color="#' + IntToHex(sg.Font.Color, 6) +
         '" face="' + SG.Font.Name + '">' + SStyle1 +
         Text + SStyle2 + '</font></td>');
     end;
     Dest.Lines.Add('  </tr>');
   end;
   Dest.Lines.Add('  </table>');
   Dest.Lines.Add('</body>');;
   Dest.Lines.Add('</html>');
 end;

 // Example, Beispiel 
procedure TFormCSVInport.Button6Click(Sender: TObject);
 begin
   SGridToHtml(StringGrid1, Memo1, 1);
   Memo1.Lines.SaveToFile('c:\test.html');
 end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 133 • TDictionary Custom Sort 3 315 • Fast Watermark Sources 3 065 • 3D Designer 4 824 • Sik Screen Capture 3 319 • Patch Maker 3 533 • Айболит (remote control) 3 635 • ListBox Drag & Drop 2 995 • Доска для игры Реверси 81 551 • Графические эффекты 3 926 • Рисование по маске 3 231 • Перетаскивание изображений 2 612 • Canvas Drawing 2 735 • Рисование Луны 2 560 • Поворот изображения 2 166 • Рисование стержней 2 161 • Paint on Shape 1 564 • Генератор кроссвордов 2 226 • Головоломка Paletto 1 764 • Теорема Монжа об окружностях 2 213 • Пазл Numbrix 1 682 • Заборы и коммивояжеры 2 052 • Игра HIP 1 279 • Игра Go (Го) 1 224 • Симулятор лифта 1 471 • Программа укладки плитки 1 214 • Генератор лабиринта 1 542 • Проверка числового ввода 1 352 • HEX View 1 489 • Физический маятник 1 355

Перевести TStringGrid в HTML

Похожие по теме исходники