Das müsste klappen:
Der Code erstellt eine schnörkellose
HTML-Tabelle. Hübscher kann ich's nicht, da ich keine Ahnung von
HTML habe (die Tags habe ich nur aus euren Posts in dem Thread)
Delphi-Quellcode:
Var
TabList : TStringList;
LineStr :
String;
i : Integer;
Begin
If Not SaveDialog.Execute
Then Exit;
With ADOQuery
Do
Begin
SQL.Text :=
'
SELECT *' + #10 +
'
FROM Tabelle' + #10 +
'
WHERE Spalte = :i_Spalte';
Prepared := True;
Parameters.ParamByName('
i_Spalte').Value := '
XYZ';
Open;
If Not Eof
Then
Begin
TabList := TStringList.Create;
Try
TabList.Add('
<html><head></head><body>');
TabList.Add('
<Table>');
LineStr := '
<tr>';
For i := 0
To pred(FieldCount)
Do
Begin
LineStr := LineStr + '
<td>[b]' + Fields[i].DisplayLabel + '
[/b]</td>'
End;
TabList.Add(LineStr + '
</tr>');
LineStr := '
';
While Not Eof
Do
Begin
LineStr := '
<tr>';
For i := 0
To pred(FieldCount)
Do
Begin
LineStr := LineStr + '
<td>' + Fields[i].asString + '
</td>'
End;
TabList.Add(LineStr + '
</tr>');
LineStr := '
';
Next;
End;
TabList.Add('
</Table></body>');
TabList.SaveToFile(SaveDialog.FileName);
Finally
TabList.Free;
End;
End;
End;
End;
Nachtrag: Ich habe es gerade noch um die Überschriften erweitert.
