[Lazarus] Can't create calculated field

[Krzysztof]

Hi,

I have this code:

  f := TField.Create(FDataList);
  f.FieldName := 'calc';
  f.FieldKind := fkCalculated;
  f.SetFieldType(ftBoolean);
  f.DataSet   := SQLQuery1.FieldDefs.Dataset;


procedure TForm1.OnCalc(DataSet: TDataSet);
begin
  SQLQuery1.FieldByName('calc').AsBoolean := true;
end;

But I get error "Invalid type conversion to Boolean in field calc"

Regards

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus