|
Registriert seit: 9. Apr 2003
Ort: Köln
256 Beiträge
Delphi XE2 Enterprise
|
Re: DB-Tabelle in HTML speichern???
26. Feb 2004, 13:21
das kriegst du doch leicht selber hin etwa so:
Code:
procedure MyHtmlExport;
var
F: TextFile;
Fn: string;
a: integer;
begin
Fn := 'c:\myexport.html';
AssignFile(F, Fn);
Rewrite(F);
Write(F, '< HTML>');
Write(F, '<HEAD>');
Write(F, '</HEAD>');
Write(F, '<BODY>');
Write(F, '<TABLE>');
a := 0;
// in der while schleife laeufst du halt durch deine tabelle und schreibst
//zeilen und spalten
while a < 10 do
begin
inc(a);
Write(F, '<tr>');
Write(F, '<td>');
Write(F, inttostr(a));
Write(F, '</td>');
write(F, '<td>');
Write(F, inttostr(a * a));
Write(F, '</td>');
Write(F, '</tr>');
end;
Write(F, '</TABLE>');
Write(F, '</BODY>');
Write(F, '</ HTML>');
CloseFile(F);
end;
|
|
|
Zitat
|