OnFilterRecord event

[auditdi30]

Hello!

Is it possible to change the code I put in this event at runtime?? My code is at start;

accept:=dataset['navn']=form1.stat.panels[0].text;

but at runtime when user click on a button, I want to change the code to;

accept:=dataset['avrdato']>fra;

Is it possible, and if so, how??

TIA
Kåre!

 

[DjangMan]

One option is to store the field name in a variable and the value you're comparing in a variable.

accept := dataset[FieldToCompare] > ValueToCompare;

This code, however, would only compare using the '>' operator. So you might add something like:

var
  Operator: integer; //or a type

case aOperator of
  Eq: accept := dataset[FieldToCompare] = ValueToCompare;
  Gt: accpac := dataset[FieldToCompare] > ValueToCompare;
  GtE: accpac:= dataset[FieldToCompare] >= ValueToCompare;
  Ne: accpac := dataset[FieldToCompare] <> ValueToCompare;
end;

 

[roo0047]

@DjangMan - looks like there might be some Fortran in your past... ;-)

Roo
Delphi Rules!

 

[DjangMan]

I missed Fortran but did get exposed to Cobol.