各路高手，快来淘金(数据库问题)..........

Question

在Field Editor中添加计算子端，然后写：
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
  DataSet.FieldByName('计算子端').AsInteger := ……
end;就行了—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

这样动态添加计算子端：
var OneField: TIntegerField;0D
begin
  OneField := TIntegerField.Create(AOwner);
  OneField.FieldName := ...
  OneField.FieldKind := fkCalculated;
  ...
  OneField.DataSet := YourDataSet;
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 2

lxpbuaa(桂枝香在故国晚秋)老兄的写的很好玩,赞同!