E2034 Trop de paramètres originaux (Delphi)

Remonter à Messages d'erreur et d'avertissement (Delphi)

Ce message d'erreur se produit lorsqu'un appel de procédure ou de fonction donne plus de paramètres que ceux spécifiés par la déclaration de la procédure ou de la fonction.

De plus, ce message d'erreur se produit lorsqu'un appel OLE automation a trop (plus de 255) de paramètres nommés.

program Produce;

function Max(A,B: Integer): Integer;
begin
  if A > B then Max := A else Max := B
end;

begin
  Writeln( Max(1,2,3) );   (*<-- Message d'erreur ici*)
end.

Max devrait accepter trois paramètres...

program Solve;

function Max(const A: array of Integer): Integer;
var
  I: Integer;
begin
  Result := Low(Integer);
  for I := 0 to High(A) do
    if Result < A[I] then
      Result := A[I];
end;

begin
  Writeln( Max([1,2,3]) );
end.

Vous auriez normalement dû changer pour appeler le site afin de fournir le bon nombre de paramètres. Nous avons choisi ici de vous montrer comment implémenter Max avec un nombre illimité d'arguments. Notez que vous devez maintenant l'appeler différemment.