Query-Durchlauf funktioniert nicht richtgi

[Barret]

OK!
Fehler ist halb gefunden!!!


so muss es sein:

Delphi-Quellcode:

  bAusgabe := false;  //bestimmen ob das Enddatum erreicht ist (Abbruch der Schleife)
  bDatumAusgabe := false;  //Bestimmen ob Datum schon als Tagesüberschrift angezeigt wird
  dAusgabe := FieldByName('datum_von').AsDateTime;

  while not bAusgabe do
  begin
    if ((dAusgabe >= FieldByName('datum_von').AsDateTime) AND (dAusgabe <= FieldByName('datum_bis').AsDateTime)) then
    begin
      if (bDatumAusgabe = false) then
      begin
        bDatumAusgabe := true;

        ShortDateFormat := 'dddd, dd. mmm';
        LBText.Items.Add('');
        LBText.Items.Add(DateToStr(dAusgabe));
        ShortDateFormat := 'yyyy-mm-dd';
      end;

               //String zusammenbauen und ausgeben ....

    end;


    if Eof then
    begin
      if (dAusgabe = trunc(DTPBis.Date)) then
        bAusgabe := true;

        First;
        bDatumAusgabe := false;
        dAusgabe := dAusgabe + 1;
    end
    else
      Next;
  end;

Jetz habe ich nur noch das Problem, dass der letzte Datensatz zweimal eingetragen wird...

Gibt es eine Möglichkeit vom Eof einen abzuzzihen?