还是不懂oop:帮忙看看一个实现接口的类代码(100分)

type
TFormattedInteger=class(TObject,IFormattedNumber);
private:
FValue:Integer;
public:
constructor Create(AValue:Integer);
function FormattedString:string; procedure SetValue(AValue:Integer);
end;
创建类的实例：
constructor TFormattedInteger.Create(AValue:Integer);
begin
inherited Create;
FValue:=AValue; //第一次赋值
end;
procedure TFormattedInteger.SetValue(AValue:Integer);
begin
FValue:=Value; //第二次赋值
end;
它赋两次值干嘛的，只一次为啥不行？

第一次是这样用的
tformattedinteger.create(....)
第二次是这样用的
tformattedinteger(your component).value:=

这不叫两次吧？并没有说是连续执行的嘛。
第一处是赋初值，第二处用在运行时动态地改变该值。

多人接受答案了。

第一次的时候是初始化，第二次是动态