Agregar Parametro a Create

[totote]

Buenas gente, cómo puedo hacer para agregar un parametro a un constructor, la idea es, yo tengo varios formularios en el cual se le asigna un código, lo que quiero hacer es que cuando creo el formulario a parte del parametro de siempre :P le pase un número que va a ser el código que le asigno, lo que habia hecho era esto:

Código Delphi [-]
type
  TfrmBase = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    Cod: Integer;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; ID: Integer); override;
  end;

constructor TfrmBase.Create(AOwner: TComponent; ID: Integer);
begin
  inherited;
  Cod:= ID;
end;

Pero me da el error :
Declaration of 'Create' differs from previous declaration

Agradeceria cualquier tipo de ayuda.

Saludos

[totote]

Bueno chusmeando un poco de código de delphi encontre la solucion, en ves de modificar el create, creo otro constructor y el código sería así:

Código Delphi [-]
type
  TfrmBase = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    Cod: Integer;
  public
    { Public declarations }
    constructor CreateNew(AOwner: TComponent; ID: Integer); virtual;
  end;

constructor TfrmBase.CreateNew(AOwner: TComponent; ID: Integer);
begin
  inherited Create(AOwner);
  Cod:= ID;
end;

De esa manera me funcionó.

Saludos

[[coso]]

si haces override, lo que estas es 'reescribiendo' una funcion anterior, por lo que la nueva función debe tener la misma estructura. Prueba de poner 'overload', creando asi dos tipos de constructores (uno sin id, el otro con) (no podras usar el inherited, tendras que usar Create(AOwner))

[[coso]]

Veo q te adelantaste . Lo más correcto, igualmente, es el 'overload' te dejo la ayuda de delphi

A method can be redeclared using the overload directive. In this case, if the redeclared method has a different parameter signature from its ancestor, it overloads the inherited method without hiding it. Calling the method in a descendant class activates whichever implementation matches the parameters in the call.
If you overload a virtual method, use the reintroduce directive when you redeclare it in descendant classes. For example,

[totote]

Grax coso por la data y te consulto de donde sacaste la info para tenerla de referencia para la proxima jeje.

Saludos y nuevamente Grax

[[coso]]

X) pues de la OOP, aunque ahora hay tantas palabrejas (estaba leyendo lo de virtual y reintroduce) que ya uno se pierde La cita es de la ayuda del Delphi