初学者问题Not enough actual parameters怎么解决?
Function Num(S1, S2:integer):integer;
var
S11, S12, S21, S22, S31, S32:integer;
begin
S11 := S1 and $FFFFFF;
S12 := (S1 and $7F000000) div $1000000;
If S1 < 0 Then S12 := S12 Or $80;
S21 := S2 and $FFFFFF;
S22 := (S2 and $7F000000) div $1000000;
If S2 < 0 Then S22 := S22 or $80;
S32 := S12 + S22;
S31 := S11 + S21;
If (S31 and $1000000)=1 Then S32 := S32 + 1;
Num := (S31 And $FFFFFF) + (S32 and $7F) * $1000000;
If (S32 And $80)=1 Then Num := Num Or $80000000; //提示出错:not enough actual parameters
end;

[解决办法]

Delphi(Pascal) code

Function Num(S1, S2:integer):integer;varS11, S12, S21, S22, S31, S32， p:integer;begin  S11 := S1 and $FFFFFF;  S12 := (S1 and $7F000000) div $1000000;  If S1 < 0 Then S12 := S12 Or $80;  S21 := S2 and $FFFFFF;  S22 := (S2 and $7F000000) div $1000000;  If S2 < 0 Then S22 := S22 or $80;  S32 := S12 + S22;  S31 := S11 + S21;  If (S31 and $1000000)=1 Then S32 := S32 + 1;  p := (S31 And $FFFFFF) + (S32 and $7F) * $1000000;  If (S32 And $80)=1 Then p := p Or $80000000; //提示出错:not enough actual parameters  Result := p;end;