Skip to main content
2 de 2
Agregar una explicación del por qué se da el problema.
jachguate
  • 32.1k
  • 8
  • 41
  • 69

error en IF, debe estar entre paréntesis

IF (CONDICIÓN 1) AND (CONDICIÓN 2) then
begin
  Instrucción
end;

Esto se debe a que en pascal:

  • los operadores and y or, 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;