O
oushengfen
Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个组件,却怎么也装不上去.特向高手请教.
里面有一个单元
{***********************************************************}
{* Copyright ?1997-2002 LtpFC Technology Group Inc *}
{* All rights reserved. *}
{* www.LtpFCtech.com *}
{***********************************************************}
unit LtpFCFilter;
现在报错
{$IFDEF Delphi4Data}
if poDefaultExpr in FParsOpts then
begin
fld := FDataSet.FieldByName(FFieldName);
if fld.FieldKind = fkCalculated then
begin
restFieldKind := True;
__TField(fld).FFieldKind := fkData;
end;
end;
{$endif}
try
FParser := TExprParser.Create(FDataSet, FText, FOptions
{$IFDEF Delphi4Data}, FParsOpts, FFieldName, nil {$ENDIF}
{$IFDEF Delphi5AndUp}, FldTypeMap {$ENDIF});
finally
if restFieldKind then
__TField(fld).FFieldKind := fkCalculated;
end;
end;
end;
[DCC Error] LtpFCFilter.pas(399): E2035 Not enough actual parameters
谁帮我解决一下.分不够可以再加
这是一个比较老的组件
里面有一个单元
{***********************************************************}
{* Copyright ?1997-2002 LtpFC Technology Group Inc *}
{* All rights reserved. *}
{* www.LtpFCtech.com *}
{***********************************************************}
unit LtpFCFilter;
现在报错
{$IFDEF Delphi4Data}
if poDefaultExpr in FParsOpts then
begin
fld := FDataSet.FieldByName(FFieldName);
if fld.FieldKind = fkCalculated then
begin
restFieldKind := True;
__TField(fld).FFieldKind := fkData;
end;
end;
{$endif}
try
FParser := TExprParser.Create(FDataSet, FText, FOptions
{$IFDEF Delphi4Data}, FParsOpts, FFieldName, nil {$ENDIF}
{$IFDEF Delphi5AndUp}, FldTypeMap {$ENDIF});
finally
if restFieldKind then
__TField(fld).FFieldKind := fkCalculated;
end;
end;
end;
[DCC Error] LtpFCFilter.pas(399): E2035 Not enough actual parameters
谁帮我解决一下.分不够可以再加
这是一个比较老的组件