Funciones y Polimorfismo: Como pasar parámetros

[gaps2k]

Hola Listeros,

Estoy desarrollando una apliación en donde tengo varias estructuras similares, que difrieren más que todo en cantidad de atributos que en comportamiento.

Tengo Detalles de Factura, de Ordenes de Compra y De Ordenes Productivas.

Declaro una Clase TDetalle que tiene los valores y comportamiento común a todos. Y declaro las otras clases Heredando de esta,

Ej: TDetalleFactura que hereda de TDetalle
TDetalleFactura = Class(TDetalle)

El problema que tengo es que declaro una función que recibe como parámetro un Objeto de tipo TDetalle y cuando trato de pasarle un TDetalleFactura o TDetalleOrden, me dice que los tipos de datos son incompatibles.

La función no pertenece a ninguna de las Clases, solo las recibe como parámetro. Trabajo Delphi 7.

Espero que puedan ayudarme (o guiarme!!).

[dec]

Hola,

Podrías poner algo del código fuente implicado en el asunto. Lo cierto es que deberías poder pasar como parámetro un "TDetalleFactura", por ejemplo, en un procedimiento que requisiera un "TDetalle", o sea, lo que necesitas puede hacerse, habría que ver, entonces, cómo estás tratando de hacerlo.

[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;