sql -> html

**mav**

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?

sql -> html

sql -> html

Forumregeln