散分！我也做个好事！

Question

谁知道下面的错误的原因是什么？？
[Error] DBSumLst.pas(25): Unsatisfied forward or external declaration: 'TDBSum.SetGroupOperation'
部分代码如下：
uses
  Windows, Messages, SysUtils, Graphics, Controls, Forms, Dialogs, DB,
  Variants,TypInfo , Classes{,dbugintf};type
  TGroupOperation = (goSum, goAvg, goCount);
//  TCollectionItem =class;
  TDBSum = class(TCollectionItem)
  private
    procedure SetGroupOperation(const Value: TGroupOperation);
    procedure SetFieldName(const Value: String);
  protected
    FFieldName: String;
    FGroupOperation: TGroupOperation;
    Value: Currency;
    // For Average
    FNotNullRecordCount: Integer;
    FSumValueAsSum: Currency;

Answer 1

说的是你的SetGroupOperation向前申明了，也就是说明你的类声明有问题

Answer 2

恭喜 Linux2001(我想买手提电脑啊！) 又加了个星星 ：）

Answer 3

这是dbgrideh里的代码；
TCollectionItem是在delphi里的classes生命的：
改了半天还是没有改好；

Answer 4

应该是你还没给出SetGroupOperation的实现代码