Funciones y Polimorfismo: Como pasar parámetros

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

[ariefez]

Espero no sea tarde, pero si el problema es de parametros seria cuestion de redefinir el procedimiento, cambiando el tipo del parametro que causa el error.

Por ejemplo

Código Delphi [-]
type
  DettaleArray = array of TDetalle;

function trabajar_fila(fila, columna : integer; mueve : boolean; encabezado:TEncabezado;
  lineas: DettaleArray; sql:TQuery; grid_prod:TStringGrid) : boolean;

....

var
  grid: array of array of TLineaOrdenProduccion;
begin
  // Inicializo grid
  ...
  trabajar_fila(..., DettaleArray(grid[0]), ....); // Realizo un cast para q los tipos sean compatibles

Haciendo esto el error desaparece , ya nos contaras como lo solucionaste.

[gaps2k]

Muy buena idea, la voy a probar!!

Les comento que para el caso específico, lo que hice fue pasar solo un elemento en lugar del Array, con lo cual pude solucionar el problema, sin embargo tengo varias funciones que requieren el array (por ejemplo todas las lineas de una factura), las cuales me estaban preocupando, pero ahora tengo una foma más para tratar de solucionarlo!!

De nuevo muchas gracias!!