07/03/2010
08/03/2010
09/03/2010
10/03/2010
Tengo lo siguiente:
procedure TFAstGen.btn1Click(Sender: TObject); var FechaIni, FechaFin: TDateTime; begin FechaIni := Primero; FechaFin := Ultimo; QGetRows.Close; QGetRows.SQL.Clear; QGetRows.SQL.Text := 'SELECT * FROM LOG_ASISTENCIA'; QGetRows.Open; //pbProgreso.Max := QGetRows.RecordCount; if QGetRows.RecordCount > 0 then begin DateSeparator := '/'; ShortDateFormat := 'dd/mm/yyyy'; //Primero registramos todos los días x empleados for FechaIni to FechaFin do begin QGetLogData.Close; QGetLogData.SQL.Clear; QGetLogData.SQL.Text := 'INSERT INTO ASISTENCIA(EMP_ID,AST_FECHA) VALUES(:EMP, :FECHA)'; QGetLogData.ParamByName('EMP').Value := QGetRows.fieldByName('EMP_ID').AsInteger; QGetLogData.ParamByName('FECHA').Value := FechaIni; QGetLogData.ExecSQL; QGetRows.Next; end; end else ShowMessage('No hay registro que generar!'); end;
El erro me da en el loop for:
[Error] AstGen.pas(93): For loop control variable must have ordinal type
Aquí me dice que deber un valor Ordinal (Entero), ahora cómo recorro fecha x fecha?