Einzelnen Beitrag anzeigen

Der-DeeJay

Registriert seit: 11. Feb 2004
Ort: Reußenköge
45 Beiträge
 
#1

Fehler beim erstellen der HTML Tabelle aber wo????

  Alt 3. Mär 2004, 20:25
HI

Ich möchte gerne meine Datenbank oder Tabelle in HTML und da bei dem was ich geschrieben hab da kommt immer der 1 beitrag aus der datenbank und danach immer nur der letzte und die dazwischen läst er aus ;[[

weis einer warum??

Delphi-Quellcode:
lst := tStringlist.Create;
try
   lst.Add('<html>');
   lst.Add('<head>');
   lst.Add('<title>'+Title+'</title>');
   lst.Add('</head>');
   Lst.Add('<body>');
   lst.Add('<Table width="'+IntToStr(w)+'" height="'+IntToStr(h)+'" border="1">');
   for x:=1 to Tabelle1.DataSource.DataSet.RecordCount do
      begin
      lst.Add('<tr>');
      for y:=0 to (Tabelle1.FieldCount-1) do
          begin
          lst.Add('<td>'+Table1.Fields.Fields[y].Text+'</td>');
          Table1.Next;
          end;
      lst.Add('</tr>');
      end;
   lst.Add('</Table>');
   Lst.Add('</body>');
   lst.Add('</html>');
   lst.SaveToFile(dir+name);
finally
   lst.Free;
end;

Hoffe ihr findet den Fehler
Ich hab ihn noch nich gefunden ;[
>>> Ich traue jedem, Ich traue nur nich dem Teufel der in jedem steckt! <<<
  Mit Zitat antworten Zitat