Realizar un bucle for con fechas!!

[Vales08]

En conclusion necesito que se incremente la variable i, que en primer instancia tiene el valor 24, el dia de hoy, y yo quiero que pase a tener el valor 31.. el ultimo lunes del mes

[ecfisa]

Hola Vales.

A ver si es algo como esto...

Código Delphi [-]
...
var
  i: Integer;
  T: TDate;
begin
  T:= Now;
  for i:= DayOf(Now) to  DaysInMonth(Now) do
  begin
    case DayOfTheWeek(T) of
      1: ListBox1.Items.Add('Lunes '+IntToSTr(Dayof(T)));
      2: ListBox1.Items.Add('Martes '+IntToSTr(Dayof(T)));
      3: ListBox1.Items.Add('Miercoles '+IntToSTr(Dayof(T)));
      4: ListBox1.Items.Add('Jueves '+IntToSTr(Dayof(T)));
    end;
    T:= IncDay(T);
  end;
...

Un saludo.

[Vales08]

siiiii, muchisimas gracias... ya lo pruebo..
Claro tengo que utilizar otra variable porque i es entero y yo utilizando el incDay necesito variables date, sino son incompatibles..

Saludos.-