¿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
|