![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#5
|
||||
|
||||
|
¡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');
...
Al González . |
|
|
|