hi all
wiedermal bin ich es, welcher hier ein thread eröffned
ich bin am basteln
html ausgabe mithilfe der IBQuery
Delphi-Quellcode:
procedure TFimexport.SpeedButton1Click(Sender: TObject);
begin
If SaveDialog1.Execute
then
IBQuery1.SQL.Text := '
SELECT mov_title, mov_genre FROM mov_db';
IBQuery1.Open;
while IBQuery1.Eof=false
do begin
TabList := TStringList.Create;
Try
TabList.Add('
<html><head></head><body>');
TabList.Add('
<Table>');
LineStr := '
<tr>';
For i := 0
To IBQuery1.RecordCount
Do
Begin
LineStr := LineStr + '
<td>[b]' + IBQuery1.Fields[i].DisplayLabel + '
[/b]</td>'
End;
TabList.Add(LineStr + '
</tr>');
LineStr := '
';
While Not Eof
Do
Begin
LineStr := '
<tr>';
For i := 0
To IBQuery1.RecordCount
Do
Begin
LineStr := LineStr + '
<td>' + IBQuery1.Fields[i].asString + '
</td>'
End;
TabList.Add(LineStr + '
</tr>');
LineStr := '
';
Next;
End;
TabList.Add('
</Table></body>');
TabList.SaveToFile(SaveDialog1.FileName);
Finally
TabList.Free;
End;
end;
end;
beim starten habe ich keine probleme.. jedoch wenn ich das
html file speichern möchte.. bekomme ich folgende meldung:
Im Projekt
html.exe ist eine
Exception der Klasse EListError aufgetreten. Meldung: Listenindex überschreitet das Maximum (2)...
kann mir da wer nen tip geben?