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

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 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;

error en IF, debe estar entre parentesis

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

Sln:

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;

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;
Origen Enlace

error en IF, debe estar entre parentesis

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

Sln:

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;