loop med dato

Jeg har selv fundet ud af det.

procedure TForm1.CheckDato(FraDato : TDate; TilDato : TDate);
var
  Dato : TDate;

begin
  While (Dato>= FraDato) and (Dato<= tilDato) do
  begin
    // her udføres handlingerne
    dato := dato+1;
  end;
end;

Her er den rigtige:

procedure TForm1.CheckDato(FraDato : TDate; TilDato : TDate);
var
  Dato : TDate;
begin
  Dato := FraDato;
  While (Dato>= FraDato) and (Dato<= tilDato) do
  begin
    // her udføres handlingerne
    dato := dato+1;
  end;
end;