Funciones y Polimorfismo: Como pasar parámetros

[gaps2k]

Código Delphi [-]
//Esta es la clase madre
 
Type
TDetalle = class(TObject)
-
-
end;
 
//Clase Derivada
 
Type
TDetalleFactura = class(TDetalle)
-
-
end;
 
//funcion Problematica
function trabajar_fila(fila, columna : integer; mueve : boolean; encabezado:TEncabezado; 
  lineas:array of TDetalle; sql:TQuery; grid_prod:TStringGrid) : boolean;

Según la teroría debería funcionar!!

[dec]

Hola,

Alto ahí forastero, no te llevarás nuestro oro... huy, perdón, que me lío. Que digo que la "función problemática" requiere, precisamente, un "array de TDetalles", o sea, no un "TDetalle" cualquiera. Ojo, ¿seguro que estás intentando pasar un Array? Hagamos una cosa, transcribe aquí, literalmente, el error que te da el compilador.

[dec]

Hola,

Vale... a lo mejor me estoy pasando de listo o me estoy perdiendo algo. Haciendo algunas pruebas, aunque la "función problemática" requiera un "Array de TDetalle", lo cierto es que acepta también que se le pase un simple "TDetalle".

Pero, ojo, en mis pruebas puedo pasar también a la función un "TDetalleFactura" sin problemas...

Y ahora la duda la tengo yo... ¿Cómo es que acepta la función un simple "TDetalle" si lo que requiere es un Array? Yo estoy no lo había visto antes. Y además puede llamarse a la función tanto así:

Código Delphi [-]
Func(Detalle)

Como así:

Código Delphi [-]
Func([Detalle])

Que sería lo que se entendería mejor... ¿Alguien puede decir algo a este respecto? Gracias.

[gaps2k]

Empezado por dec

Hola,
Y ahora la duda la tengo yo... ¿Cómo es que acepta la función un simple "TDetalle" si lo que requiere es un Array? Yo estoy no lo había visto antes. Y además puede llamarse a la función tanto así:
...
Que sería lo que se entendería mejor... ¿Alguien puede decir algo a este respecto? Gracias.

Lo que entiendo (y que alguien me corrija si estoy mal), es que al pasar el array, lo que la función recibe es una referencia al Primer elemento, por eso sin importar si el arreglo se declaro [1..5], ó [2..6], siempre se va a tomar el primer elemento como: elemento [0]

[gaps2k]

trabajar_fila(i, 0, false,
encabezados_orden[i], //este es un TencabezadoOrden array [0..5]
grid[i], //arreglo de Detalles
sql_aux, //tquery
grid_prod) //TStringGrid

El grid[i], es un: grid : array[0..5, 1..8] of TLineaOrdenProduccion;

(TLineaOrdenProduccion, hereda de TDetalle)

El errior dice:

(1069): incompatible types

[dec]

Hola,

¿No deberías especificar "el grid" mediante dos índices? Es decir:

Código Delphi [-]

grid[i][j]

Lo digo porque:

Código Delphi [-]
grid: array[0..5, 1..8] of TLineaOrdenProduccion;

[gaps2k]

Empezado por dec

Hola,

¿No deberías especificar "el grid" mediante dos índices? Es decir:


Código Delphi [-]

grid[i][j]

Lo digo porque:

Código Delphi [-]
grid: array[0..5, 1..8] of TLineaOrdenProduccion;

lo que pasa es que al ser un arreglo de dos dimensiones, se puede ver como que cada elemento "x", tiene asociado un arreglo que se ubica en "y", entonces al pasar grid[i], estoy pasando el Array of Tdetalle que requiere la función.

[dec]

Hola,

Sí; creo que llevas razón. Pues chico, el error "Incompatible types" me deja KO, puesto que esperaba algo más de concreción. No sé. La verdad es que ahora mismo no sé qué decirte... a ver si algún compañero que nos esté leyendo...

[gaps2k]

Gracias por el interés!!

Agradezco que si alguien entiende porque ocurre este error me lo explique, ya que si me es necesario poder realizar tareas como esta!!

Por el momento, graciaspor esta charla, se me ocurrio un cambio en la función, ya que en este caso especifico puedo resivir unicamente un elemento del tipo TDetalle, voy a ver si esto funciona!