"Tipos de parámetros var reales y formales deben ser idénticos" en el Procedimiento

Question

Estoy intentando escribir un procedimiento en Delphi. Este procedimiento recibe el nombre del elemento descendiente TControl y luego intenta cambiar algunas propiedades. Pero cuando trato de hacerlo, Delphi da un error como:

E2033 Tipos de var real y formal parámetros deben ser idénticos

Procedimiento:

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

uso Ejemplo : Change_prop(Label1, 50,200); ¿Cuál puede ser la solución de ese error? Gracias.

Answer 1

sólo tiene que quitar el var en el parámetro de control y convertirlo en un parámetro de valor. Debido a que los objetos Delphi se implementan realmente como tipos de referencia, puede invocar métodos en ellos, cambiar campos de miembros, etc. incluso si los pasa a un procedimiento como un parámetro de valor o const.

Answer 2

Basta con retirar var - que no lo necesita para cambiar las propiedades de control:

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

Answer 3

Como dijo David, el problema está en el var. Eso no significa que pueda modificar los miembros de TControl, significa que puede reemplazar TControl con otro TControl completamente diferente, porque los objetos son tipos de referencia.

Si está pasando un objeto a un parámetro var, la variable que pase debe declararse exactamente del mismo tipo que el parámetro para preservar la seguridad del tipo. De lo contrario, podría hacer esto:

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;