error en IF, debe estar entre parentesisparéntesis
IF (CONDICIÓN 1) AND (CONDICIÓN 2) then
begin
Instrucción
end;
SlnEsto se debe a que en pascal:
- los operadores
and
yor
, además de operadores lógicos, son operadores binarios. - el operadores operadores
and
tienen mayor precedencia que los operadores de comparación, como>
,<
,>=
, etc.
Por estas razones, al no encerrar tus condiciones entre paréntesis, lo que el compilador entiende que quieres hacer es:
if Hoy >= (IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30) and Hoy) >= ARecord.Values[AColumnFechaFin.Index] then
En la expresión anterior, he añadido paréntesis para tratar de aclararlo. Es decir, primero intenta realizar la operación binaria:
IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30) and Hoy
Por suerte, la operación and
no está definida para tipos de dato TDateTime (que son en realidad números de coma flotante), que es lo que dice el mensaje de error (que de otra forma parecería no tener sentido).
Dicho esto, la solución a tu problema sería esta:
procedure TfMain.gridDBColumnGrid1DBTableView1FECHAINICOStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
AColumnFechaInicio, AColumnFechaFin: TcxCustomGridTableItem;
begin
AColumnFechaInicio := (Sender as TcxGridDBTableView).GetColumnByFieldName('FECHAINICO');
AColumnFechaFin := (Sender as TcxGridDBTableView).GetColumnByFieldName('FECHAFIN');
if (Hoy >= IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30)) and (Hoy >= ARecord.Values[AColumnFechaFin.Index]) then
begin
AStyle := cxStyleGreen;
end;
end;