Hallo!
Folgendes: zur Anzeige verschiedener Pläne auf einem Monitor ist es notwendig, dass man einstellen kann, wie viele Zeilen (DB-Ergebnisse) auf eine HTML-Seite gepackt werden.
http://svenkan.sv.ohost.de/delphi/vplan/vplan_index.htm <~~~ Beispiele für diese Dateien
Je nach Auflösung passt natürlich nur eine gewisse Anzahl an Daten drauf, die auch angezeigt werden können.
Nun: die max. Zahl Datensätze (z.B. 10) wird aus einer INI abgerufen und wenn nun diese Anzahl überschritten wird, soll die Datei geschlossen und eine neue angefangen werden.
Doch mit den bisherigen Methoden hatte ich von mir aus immer nur Probleme (z.B. dass plötzlich Leerdateien erzeugt wurden).
Die Dateien sollen dann noch im Namen durchnummeriert werden (z.B. vplan_heute_1.htm).

counter: Datensätze
mps: Maximum pro Seite
l_count: aktuelle Seitenzahl

Prüfen, ob Anzahl erreicht wurde:

markieren

Delphi-Quellcode:

 if NOT (counter/mps<=1) then begin
  CloseFile(Datei);
  l_count:=l_count+1;
(...)

Äähh, was denn für Dateien? Willst Du die Anzahl der Datensätze einschränken?

Also: es werden beim Klick auf n Menüeintrag die oben erwähnten HTML-Pläne erzeugt.
Und wenn nun als max. 10 eingestellt ist, soll nach dem 10. Eintrag ein Schnitt gemacht werden, die Datei 'vplan_heute_1.htm' geschlossen und das Ganze in der 'vplan_heute_2.htm' fortgeführt werden. Solange, bis alle Einträge abgearbeitet und geschrieben worden sind.

Keiner ne Idee?

Ich verstehe nicht ganz, was da jetzt so schwer sein soll.

Pseudo-Code:

zusammenfalten · markieren

Delphi-Quellcode:

var max = 10, Zähler = 1;
begin
  Ergebnismenge.First;
  erste_Seite;
  while not Ergebnismenge.EOF do
    begin
      if (Zähler mod 10) = 0 then
        begin
          Seite_schließen;
          neue_Seite;
        end;
      Ausgabe;
      inc(Zähler);
      Ergebnismenge.Next;
    end;
  Seite_schließen;
end;

So in der Art könnte das gehen.

Warum klopfst Du die DB nicht ins Internet (in eine MySQL-DB) und liest das Zeugs mit PHP aus?

Das hab ich mich auch schon gefragt, ist doch eine prädestinierte Anwendung für dynamische Webseiten.

Zitat von DeddyH:

Ich verstehe nicht ganz, was da jetzt so schwer sein soll.

Pseudo-Code:

zusammenfalten · markieren

Delphi-Quellcode:

var max = 10, Zähler = 1;
begin
  Ergebnismenge.First;
  erste_Seite;
  while not Ergebnismenge.EOF do
    begin
      if (Zähler mod 10) = 0 then
        begin
          Seite_schließen;
          neue_Seite;
        end;
      Ausgabe;
      inc(Zähler);
      Ergebnismenge.Next;
    end;
  Seite_schließen;
end;

So in der Art könnte das gehen.

Leider funktioniert das eben nicht. Ich hatte etwas ähnliches, und bei mir hats auch nicht getan.
Es wird leider alles in eine Datei geschrieben.

Zeig doch mal das, was Du gemacht hast. Dann können wir Dir helfen, Deinen Fehler zu finden. Der Rohbau von Detlef ist schon richtig.

Dann zeig doch mal, wie Du es versucht hast, ist bestimmt nur ein Schusselfehler. Im Übrigen fände ich die PHP (oder Perl, ASP oder was weiß ich)-Lösung sinnvoller.

[edit] Ich ziehe mich gleich schmollend in die Ecke zurück [/edit]