Hi

I cannot compile

Error is:  "E2003 Undeclared identifier: 'ftString'"

Code is:

var i:integer;
   TypeOfData:string;
begin
   for i:=0 to datafrm.tbProduct.FieldCount-1 do
   begin
      if datafrm.tbProduct.Fields[i].DataType = ftString then TypeOfData:='ftString';
   end;

Regards

Kamran

My guess is that you're missing the DB unit from uses clause (where ftString is actually defined)

Raul

kamran wrote:
I cannot compile

Error is:  "E2003 Undeclared identifier: 'ftString'"

Code is:

var i:integer;
   TypeOfData:string;
begin
   for i:=0 to datafrm.tbProduct.FieldCount-1 do
   begin
      if datafrm.tbProduct.Fields[i].DataType = ftString then TypeOfData:='ftString';
   end;

Regards

Kamran