7 replies to this topic

[cadetill]

Buenas,

Parece ser que en versiones anteriores a D2009 hay problemas cuando intentas sobrecargar métodos (como 11565, 47461, 56503). Por ejemplo, yo tengo el siguiente código

delphi

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
    procedure lolo(a: TColor); overload;
    procedure lolo(a: Integer); overload;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.lolo(a: TColor);
begin
  // lo que sea
end;
 
procedure TForm1.lolo(a: Integer);
begin
  // lo que sea
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  l: TColor;
begin
  lolo(l);
end;

Código sencillo donde los haya. Pues bien, este trocito de código compila sin problemas en versiones mayores a D2007 (no tengo el D2009 para probarlo) pero no D2007 o inferiores dando un error de "Ambiguous overloaded call to'lolo'"

La cosa es que necesito tener "esas" funciones en los componentes GMLib y los intento compilar desde la versión 6 de Delphi. La pregunta es... ¿qué solución lo más elegante posible se os ocurre para salvar ese problema?

Yo había pensado en ponerle un parámetro más a una de las funciones, parámetro que no usaría, claro, no lo necesito, pero me parece una chapucilla

¿Alguna otra solución?

Gracias

[cadetill]

También puedo cambiarle el nombre a alguna de las funciones

[egostar]

También pasar ambos parámetros en una sola función con valores predeterminados

saludos

[egostar]

Ya fuera de broma.

"sólo hay una regla de la hora de escribir rutinas sobrecargadas: una rutina sobrecargada debe diferir en el tipo de parámetro al menos uno. El tipo de retorno, en cambio, no se puede utilizar para distinguir entre dos rutinas."

Traducido de ésta página

Que es lo que comentabas al principio.

Saludos

[Fenareth]

Haciendo la prueba en D2007... me da ese problema sólo si combino TColor como parámetro de una sobrecarga e Integer como parámetro de otra... con otros tipos de datos no me genera ese error...

Será que está considerando TColor como tipo Integer ??? 

Saludox !

[cadetill]

Pues al final me he decidido por una compilación condicional

Declaración:

delphi

    procedure SetProperty(FunctionName, EventName, Value: string; Quoted: Boolean = True); overload;
    procedure SetProperty(FunctionName, EventName: string; Value: Boolean); overload;
    procedure SetProperty(FunctionName, EventName: string; Value: Integer); overload;
    procedure SetProperty(FunctionName, EventName: string; Value: Real); overload;
    {$IF CompilerVersion < 20}  // ES: si la versión es inferior a D2009 - EN: if lower than D2009 version
    procedure SetColorProperty(FunctionName, EventName: string; Value: TColor); overload;
    {$ELSE}
    procedure SetProperty(FunctionName, EventName: string; Value: TColor); overload;
    {$IFEND}

Y la forma de uso también será condicional

delphi

  {$IF CompilerVersion < 20}  // ES: si la versión es inferior a D2009 - EN: if lower than D2009 version
  SetColorProperty('PolygonSetFillColor', 'OnFillColorChange', FFillColor);
  {$ELSE}
  SetProperty('PolygonSetFillColor', 'OnFillColorChange', FFillColor);
  {$IFEND}

Es lo que tiene querer compilar en versiones "viejas" de Delphi 

Nos leemos

[Delphius]

Haciendo la prueba en D2007... me da ese problema sólo si combino TColor como parámetro de una sobrecarga e Integer como parámetro de otra... con otros tipos de datos no me genera ese error...

Será que está considerando TColor como tipo Integer ??? 

Saludox !

Así es amiguita... y no es que lo considere como... ¡ES UN INTEGER! TColor no es más que un alias del integer.

delphi

type
  PColor = ^TColor;
  TColor = -$7FFFFFFF-1..$7FFFFFFF;

Y como ambas funciones sobrecargadas tienen el mismo tipo de datos físicamente y la misma cantidad de parámetros el compilador advierte la ambigüedad.

Ahora no se que es de diferente en las nuevas versiones como para que no produzca esto cuando se trata de Integer vs TColor.

Saludos,

[Delphius]

Una posible manera de resolverlo es que exista un único método y que disponga de una variable de control que determine si se estará operando a enteros o como color. Es decir:

delphi

type
TOperationType = (otInteger, otColor);
...
procedure HacerAlgo(Value: integer; Operation: TOperationType);

Naturalmente dentro del código se requiere de una lógica condicional para que se realice de una u otra forma.

Algo parecido a esto tuve que hacer yo cuando me enfrenté a mi API en la lucha contra los parámetros por referencia ya que tuve el mismo error que le ha dado a Cadetill.

Saludos,