Ohne "Tags" über hundert Druckaufträge

[Die Muhkuh]

Hi,


ich hab eine DB dort stehen Vornamen und der Nachname drin. In meinem Programm schreibt man als "Tag" z.B. <<Vorname>>, dann wird aus der DB der Vorname beim Drucken eingesetzt. Das Problem ist nun folgendes. Wenn ich mit diesen Tags schreibe, dann druckt er soviele mal wieder Datensätze vorhanden sind. Schreib ich aber keine "Tags" rein, dann knallt er mir den Drucker mit über 100 Druckaufträgen zu.

Das ist meine Druckprocedure:

Delphi-Quellcode:

procedure TForm1.Printing;
var
  I, II: Integer;
  Left, Top: Integer;
  MS: TMemoryStream;
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT Mitgliederv4.* FROM Mitgliederv4');
  Query1.Open;
  Query1.First;
  for I := 0 to Query1.Fields.Count do
  begin
    MS := TMemoryStream.Create;       // MemoryStream erstellen
    reMessage.Lines.SaveToStream(MS); // Eingabe-RichEdit speichern
    MS.Position := 0;                 // an Position 0 gehen
    temp.Lines.LoadFromStream(MS);    // Ausgabe-Richedit laden
    MS.Free;                          // MemoryStream freigeben

    //Ersetzen der "Tags"
    Replace('<<Vorname>>', 'vorname');
    Replace('<<Nachname>>', 'name');
    Replace('<<GB>>','geburtstag');
    Replace('<<Straße>>', 'strasse');
    Replace('<<HSN>>', 'hausnummer');
    Replace('<<PLZ>>', 'plz');
    Replace('<<Ort>>', 'ort');

    //Drucken;
    Left := 100;
    Top  := 100;
    Printer.Copies := 1;
    with Printer do
    begin
      Canvas.Font.Assign(Temp.Font);
      Title := 'Serienbrief';
      BeginDoc;
      for II := 0 to temp.Lines.Count - 1 do
        Canvas.TextOut(Left, Top + (II * Canvas.TextHeight(Temp.Lines[II])),
                       Temp.Lines[II]);
      EndDoc;
    end;

    Query1.Next;
  end;
end;

[Sharky]

Hai Spider,

wofür ist den diese For-Do Schleife?

Delphi-Quellcode:

.
.
  Query1.Open;
  Query1.First;
  for I := 0 to Query1.Fields.Count do
  begin
.
.

    Query1.Next;
  end;
end;

und was bring das Query1.Next in der Schleife?

[Die Muhkuh]

Hai Fisch,


das war mal dein Code nur etwas abgewandelt. Hab For-Do gemacht statt While not EOF do.


// Edit: Jetzt klingelts grad. Ich geh ja eh alle Datensätze durch, deswegen müsste ich das Query1.Next ja weglassen können oder?

[Sharky]

Zitat:

Zitat von Spider

...Hab For-Do gemacht statt While not EOF do.

Ganz schlecht!
Vorallem gibt Dir Query1.Fields.Count nicht die Anzahl der Datensätze sonder die Anzahl der Felder in der Tabelle zurück.
Wenn schon dann Query1.RecordCount

[Die Muhkuh]

Hi,


was wäre dann besser? ForDo mit Query1.RecordCount oder While not EOF do?

[Sharky]

Zitat:

Zitat von Spider

...was wäre dann besser? ForDo mit Query1.RecordCount oder While not EOF do?

Ich persönlich bevorzuge eine While-DO Schleife. Dann kann ich nämlich noch eine "Abbruchvariable" benutzen und so dem Anwender die Möglichkeit geben den Druckauftrag abzubrechen (wenn nicht schon alles im Druckerpuffer ist).
Ausserdem wurde mal gesagt das .RecordCount gelegentlich falsche Werte liefert.

[Die Muhkuh]

Ok, dann werde ich mal auf While-Do umbauen...

//Edit: Ich muss ja nur die For-Do-Schleife wegmachen und mit While-Do ersetzen oder? Ok, war so.

[sakura]

Zitat:

Zitat von Sharky

Ich persönlich bevorzuge eine While-DO Schleife. Dann kann ich nämlich noch eine "Abbruchvariable" benutzen und so dem Anwender die Möglichkeit geben den Druckauftrag abzubrechen ...

Kann man doch auch in einer "normalen" For...do Schleife :gruebel:

Delphi-Quellcode:

for I := 0 to MaxInt-1 do
begin
  Sleep(1000);
  Application.ProcessMessages;
  if AbortedSleep then
    Break;
end;

...:cat:...

[Sharky]

Zitat:

Zitat von sakura

..Kann man doch auch in einer "normalen" For...do Schleife :gruebel:...

Klar, aber ich finde es halt mit

Delphi-Quellcode:

begin
  while not ((Query1.Eof) or (abbruch)) do
  begin
    .
    .
    Application.ProcessMessages;
    Query1.Next;
  end;
end;

schöner ;-) Dann sehe ich beim ersten blick das es eine Abbruchbedingung gibt und muss diese nicht in der Schleife suchen :stupid:

[woki]

Hi

Zitat:

Zitat von Spider

Hi,


was wäre dann besser? ForDo mit Query1.RecordCount oder While not EOF do?

Ich würde die while Variante empfehlen, nicht weil ich glaube das recordcount falsche Werte liefert, man muß sich nur bewußt sein, was recordcount für Werte liefert, nämlich die Anzahl der Datensätze, die aktuell in die Datenmenge geladen sind, das hat aber nicht unbedingt etwas mit der Anzahl der vorhandenenen Datensätze zu tun, z.B. dann, wenn die Datenmenge so eingestellt ist, dass sie Daten bei Bedarf lädt, und dann verändert sich recordcount beim durchscrollen plötzlich. Aber wie gesagt, "It's not abug, it's a feature".

Grüsse
Woki

[Die Muhkuh]

Hi,


habs jetzt auch mit While gelöst.

[Die Muhkuh]

Aber klappen tuts doch noch net.

Meine Prozedure sieht nun so aus:

Delphi-Quellcode:

var
  I, II: Integer;
  Left, Top: Integer;
  MS: TMemoryStream;
begin
  if pdPrint.Execute then //Print-Dialog
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('SELECT Mitgliederv4.* FROM Mitgliederv4');
    Query1.Open;
    Query1.First;
    while not Query1.Eof do
    begin
      MS := TMemoryStream.Create;       // MemoryStream erstellen
      reMessage.Lines.SaveToStream(MS); // Eingabe-RichEdit speichern
      MS.Position := 0;                 // an Position 0 gehen
      temp.Lines.LoadFromStream(MS);    // Ausgabe-Richedit laden
      MS.Free;                          // MemoryStream freigeben

      //Ersetzen der "Tags"
      Replace('<<Vorname>>', 'vorname');
      Replace('<<Nachname>>', 'name');
      Replace('<<GB>>','geburtstag');
      Replace('<<Straße>>', 'strasse');
      Replace('<<HSN>>', 'hausnummer');
      Replace('<<PLZ>>', 'plz');
      Replace('<<Ort>>', 'ort');

    //Drucken;
      Left := 100;
      Top  := 100;
      Printer.Copies := 1;
      with Printer do
      begin
        Canvas.Font.Assign(Temp.Font);
        Title := 'Serienbrief';
        BeginDoc;
        for II := 0 to temp.Lines.Count - 1 do
          Canvas.TextOut(Left, Top + (II * Canvas.TextHeight(Temp.Lines[II])),
                         Temp.Lines[II]);
        EndDoc;
      end;
      Query1.Next;
    end;
  end;
end;

Aber trotzdem wird (obwohl 2 Datensätze vorhanden sind) nur ein Datensatz gedruckt. Warum?

[Die Muhkuh]

*Push* :angle2:

[woki]

Hi,

schon mal mit dem debugger durchlaufen?
Oder ein selct count ... um zu bestätigen, dass die Abfrage wirklich zwei Datenätze liefert?
Auf den ersten Blick sehe ich keinen Grund für dein Problem.

Grüsse
Woki

[Die Muhkuh]

Hi Woki,


was genau meinst du mit Select Count? :gruebel:

[woki]

Hi Spider,

SQL-Code:

select count(*) from Tabellename

liefert z.b. die Anzahl der Datensätze einer Tabelle. Das kann man natürlich entsprechend verfeinern.
Damit du sicher bist, das die Abfrage wirklich zwei Datensätze zurückliefert.

Grüsse
Woki

P.S.: Das ist sozusagen das datenbankseitige Gegenstück zu recordcount.

[Die Muhkuh]

Hi,

hab es nun ohne dieses Count gemacht. Ich glaube das mit dem drucken lag daran, wie meine "Tags" ersetzt wurden, oder das ich bei RichEdit1.Print(Caption: String), nur '' gemacht hab.

[woki]

Hi,

um Mißverständnisse zu vermeiden, das count sollte auch nur helfen, die Fehlerursache einzugrenzen, ansonsten wird es hier natürlich nicht gebraucht.

Grüsse
Woki