how to setrange and find a record with recordref datatype?

madhuri.sys · 2005-07-15

hi ,

i am inserting data in a table .

but i am getting table name ,table numbers dynamically with recordref and field ref's.

here i need to find out weather duplicates are vailable or not.

i need to setrange a table with the help of recordref. and i need to find a record with in that table.

here i am unable to do this.

plz suggest me how can i?

thanks for u r quick reply.

Dodga · 2005-07-15

TableRecRef.Open (Tablenumber);
FieldFieldRef := TableRecRef.Field (FieldNumber);
FieldFieldRef.Setfilter (FilterText);
if TableRecRef.find ('-') then.....

Good examples you find in documentation and also in the source code

kine · 2005-07-18

There is code for setting filters for the primary keys fields...

Function SetPrimFilter(FirstRecord:RecordRef; var SecondRecord:RecordRef)
Var
  Keys : KeyRef;
  FirstFields : FieldRef;
  SecondFields : FieldRef;
  i : integer;
BEGIN
  Keys := FirstRecord.KEYINDEX(1);

  FOR i := 1 TO Keys.FIELDCOUNT DO BEGIN
    FirstFields := Keys.FIELDINDEX(i);
    SecondFields := SecondRecord.FIELD(FirstFields.NUMBER);
    SecondFields.SETRANGE(FirstFields);
  END;
END;

Code is not tested, may be some small changes are needed...

how to setrange and find a record with recordref datatype?

Comments

Categories