FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
¿Como se declara correctamente un constructor?
Hola Amigos, solicito ayuda a alguna alma caritativa que me puedas orientar en lo siguiente, hice una unidad nueva para contener unas funciones de trabajo para mis proyectos, tengo un procedimiento que puede recibir unos parametros, sin embargo estoy viendo que en ocaciones es necesario que reciba menos parametros de lo que normalmente recibiria, y para tal caso tengo pensado declarar varias veces ese mismo procedimiento pero con diferentes cantidad de parametros, supongo que para eso son los constructores entre otras cosas o no?
Total para eso tengo entendido que debes cambiar la palabra "procedure" por "constructor" pero si lo hago me sale error de sintaxis: [Error] UFunciones.pas(12): Undeclared identifier: 'ControlBarraDeBotonesAltasCambiasEdicion' [Fatal Error] AdminCountier1.dpr(8): Could not compile used unit 'UFunciones.pas' vamos a suponer que quiero declarar 2 veces el procedimiento ControlBarraDeBotonesAltasCambiasEdicion pero aceptando diferente cantidad de parametros...como lo debo hacer? Mi codigo es este: //////////////////////////////////////////////////////////////////////////////// unit UFunciones; interface uses UformaAcceso, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, fcOutlookList, fcButton, fcImgBtn, fcShapeBtn, ExtCtrls, fcClearPanel, fcButtonGroup, fcOutlookBar, ImgList, fcImager, ComCtrls, StdCtrls, Db, Mask, DBCtrls, ProfDateTimePicker, dxCntner, dxEditor, dxEdLib, dxDBELib, Spin, wwdbedit, Wwdbspin, fcLabel, ToolWin, Buttons, Wwkeycb, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, Menus, DBTables; procedure ControlBarraDeBotonesAltasCambiasEdicion(BotonAlta, BotonEdicion, BotonBorrar, BotonAceptar,BotonCancelar:TSpeedbutton; AccionPasada:string; Tabla: Tdataset; Grupo:Tgroupbox); implementation procedure ControlBarraDeBotonesAltasCambiasEdicion(BotonAlta, BotonEdicion, BotonBorrar, BotonAceptar,BotonCancelar:TSpeedbutton; AccionPasada:string; Tabla: Tdataset; Grupo:Tgroupbox); begin if (AccionPasada='Insertar') then begin Tabla.Insert; BotonEdicion.Enabled:=false; BotonAceptar.Enabled:=true; BotonCancelar.Enabled:=true; BotonAlta.Enabled:=false; BotonBorrar.Enabled:=false; grupo.Enabled:=true; end; if (AccionPasada='Editar') then begin Tabla.Edit; BotonEdicion.Enabled:=false; BotonAceptar.Enabled:=true; BotonCancelar.Enabled:=true; BotonAlta.Enabled:=false; BotonBorrar.Enabled:=false; grupo.Enabled:=true; end; if (AccionPasada='Aceptar') then begin Tabla.Post; BotonEdicion.Enabled:=true; BotonAceptar.Enabled:=false; BotonCancelar.Enabled:=false; BotonAlta.Enabled:=true; BotonBorrar.Enabled:=true; grupo.Enabled:=false; end; if (AccionPasada='Cancelar') then begin Tabla.Cancel; BotonAlta.Enabled:=true; BotonEdicion.Enabled:=true; BotonAceptar.Enabled:=false; BotonCancelar.Enabled:=false; BotonBorrar.Enabled:=true; grupo.Enabled:=false; end; end; //////////////////////////////////////////////////////////////////////
__________________
"Los unicos que no se equivocan son aquellos que no intentan hacer algo." Iván Caballero Cano... ivanhalen77@gmail.com |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como crear clases correctamente? | alquimista | OOP | 10 | 10-04-2010 12:21:15 |
¿Cómo evitar un warning por sobrecargar un constructor? | vejerf | OOP | 5 | 28-07-2008 13:49:55 |
¡El Profesor Fungus me declara la guerra! | Ñuño Martínez | La Taberna | 11 | 09-07-2008 19:37:29 |
Como Utilizo Correctamente FastReport | hmrvivas | Impresión | 8 | 11-09-2007 17:17:14 |
Como usar correctamente ReplaceDialog? | clanmilano | Varios | 1 | 06-02-2006 13:41:57 |
|