以前编译好好的文件，为什么现在出问题了？具体代码写在正文中。 ( 积分: 100 )

procedure TSubsectionChargeRule.Rebuild(ASort:boolean);
function CompSubsection(Item1, Item2: Pointer): Integer;
var
SecSub:Extended;
begin
SecSub := TSectionChargeRule(Item1).FSectionMin - TSectionChargeRule(Item2).FSectionMin;
if SecSub > 0 then
Result := 1
else if SecSub = 0 then
Result := 0
else
Result := -1;
end;
var
i:integer;
begin
if ASort then
FList.Sort(@CompSubsection);
for i:= 0 to Count - 1 do
SectionRules.FSectionID := IndexOf(SectionRules) + 1;
FChanged := True;
end;

上面这段代码，便宜的时候报错。
错误：[Error] ItemFlowDef.pas(860): Incompatible types: 'TListSortCompare' and 'Pointer'
错误代码行：FList.Sort(@CompSubsection);

在以前的编译中是可以通过的。我以前的项目也用过这个单元，现在编译还能通过。请教高手，这是为什么呢？怎么解决？

procedure TSubsectionChargeRule.Rebuild(ASort:boolean);
function CompSubsection(Item1, Item2: Pointer): Integer;
var
SecSub:Extended;
begin
SecSub := TSectionChargeRule(Item1).FSectionMin - TSectionChargeRule(Item2).FSectionMin;
if SecSub > 0 then
Result := 1
else if SecSub = 0 then
Result := 0
else
Result := -1;
end;
var
i:integer;
begin
if ASort then
FList.Sort(@CompSubsection);
for i:= 0 to Count - 1 do
SectionRules.FSectionID := IndexOf(SectionRules) + 1;
FChanged := True;
end;

上面这段代码，便宜的时候报错。
错误：[Error] ItemFlowDef.pas(860): Incompatible types: 'TListSortCompare' and 'Pointer'
错误代码行：FList.Sort(@CompSubsection);

在以前的编译中是可以通过的。我以前的项目也用过这个单元，现在编译还能通过。请教高手，这是为什么呢？怎么解决？

问题已经解决。

哪位帮我回复一个，我好结掉帖子，谢谢

我给你回复吧！：）

揭贴吧

怎么回事。了。說出答案好結帖！