« Types de paramètres var et formels doivent être identiques » erreur dans la procédure

Question

Je suis en train d'écrire une procédure en delphi. Cette procédure obtient le nom TControl élément descendant, puis essaie de modifier certaines propriétés. Mais quand j'essaie de le faire, Delphi donne une erreur comme:

E2033 Types de var réelle et formelle paramètres doivent être identiques

Procédure:

procedure Change_prop(var Control: TControl;height:integer;width:integer); 
begin 
//...... 
end; 

Exemple d'utilisation : Change_prop(Label1, 50,200); Quelle peut être la solution de cette erreur .. Merci.

Answer 1

Il vous suffit de supprimer le var dans le paramètre de contrôle et en faire un paramètre de valeur. Étant donné que les objets Delphi sont réellement implémentés en tant que types de référence, vous pouvez appeler des méthodes sur ces derniers, modifier des champs de membre, etc. même si vous les passez à une procédure en tant que valeur ou paramètre const.

Answer 2

Il suffit de retirer var - vous n'avez pas besoin de modifier les propriétés de contrôle:

procedure Change_prop(Control: TControl;height:integer;width:integer); 
begin 
...... 
end; 

Answer 3

Comme David dit, le problème est dans le var. Cela ne signifie pas que vous pouvez modifier les membres du TControl, cela signifie que vous pouvez remplacer le TControl avec un autre, TControl complètement différent, parce que les objets sont des types de référence.

Si vous passez un objet à un paramètre var, la variable que vous transmettez doit être déclarée exactement du même type que le paramètre afin de préserver la sécurité du type. Sinon, vous pouvez le faire:

procedure TForm1.VarControl(var control: TControl); 
begin 
    control := TButton.Create; 
end; 

procedure TForm1.Mistake; 
begin 
    VarControl(self.Memo1); //defined as TMemo 
    Memo1.Lines.Text := 'Undefined behavior here...'; 
end;