Auslesen von Daten / Rechnung mit Datum

[ironman139]

Ok dann werde ich mich mal damit befassen wie ich das umstellen kann.

So sieht jetzt mein Code sehr unschön aus, das müsste ich jetzt noch 4 mal wiederholen für -4, -3,...

Code:

begin

  datumheute := date;
  datumheute := IncDay(datumheute, -5);


  ListView1.Items.Clear;
    SQLTransaction1.commit;
       SQLQuery1.Close;
    SQLQuery1.SQL.Text := 'SELECT * FROM Print_Auftrag WHERE Ferig LIKE :Fertig';

  SQLQuery1.Params.ParamByName('Fertig').AsString := DateToStr(datumheute);
   SQLQuery1.Open;

    while not SQLQuery1.Eof do
             begin
     with ListView1.Items.Add do begin
      Caption:=(SQLQuery1.Fields[0].AsString);
      SubItems.Add(SQLQuery1.Fields[2].AsString);
      SubItems.Add(SQLQuery1.Fields[3].AsString);
      SubItems.Add(SQLQuery1.Fields[9].AsString);
      SubItems.Add(SQLQuery1.Fields[15].AsString);
      SubItems.Add(SQLQuery1.Fields[11].AsString);
      SubItems.Add(SQLQuery1.Fields[19].AsString);
   end;
        SQLQuery1.Next;

end;