¡Buen día a todos!
Aquí otra manera de implementarlo:
Código:
TMiForma = Class (TForm)
...
private
{ Private declarations }
public
{ Public declarations }
Procedure Mostrar (Const Tabla :String);
end;
...
Implementation
...
Procedure TMiForma.Mostrar (Const Tabla :String);
Begin
XCosa := Tabla; { Uso del parámetro }
Show;
End;
Código:
...
MiForma.Mostrar ('Productos');
...
Espero esto sea de utilidad. Seguimos en contacto.
Al González
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)
.