Cómo asignar valores a una variable tipo Array

[ContraVeneno]

En teoría, el grid se adapta a los campos que tenga el query, y no habría necesidad de definir los campos del encabezado, ya que el grid los tomaría de forma automática al momento de especificar el query como datasource del grid.

[dec]

Hola,

o sea que realmente no existe una forma directa como con PHP ...

Es que en PHP tampoco hay ninguna forma "directa"... esto es, tú no puedes hacer esto con un "Array" en PHP:

Código PHP:

 $arrayStrings = ('a', 'b', 'c'); 


Sino que tienes que emplear la función que existe para ello, aunque en realidad no es una función sino una construcción del lenguaje, lo cierto es que cuando haces algo así:

Código PHP:

 $arrayStrings = array('a', 'b', 'c'); 


No estás "rellenando" un Array con elementos, sino que estás creando el Array.

Ahora bien, con Delphi, como dije arriba, también es posible inicializar un Array estático, claro está:

Código Delphi [-]
var
  arregloStrings: array [1..3] of string = ('a', 'b', 'c');

Y, en todo caso, siempre podrás utilizar una función como la que puse arriba a modo de "array()", tal como haces en PHP.

Por otro lado me suena más que en tu caso lo que dice Contraveneno sea lo correcto, esto es, acaso no seas tú directamente el haya de encargarse de darle los encabezados al "Grid", tal vez, como dice Contraveneno, sea cuestión de que el propio "Grid" se haga cargo.

Yo aquí ya no me meto, porque, sencillamente, no tengo mucha idea, por no decir ninguna.

[[Lepe]]

Yo tengo un grid que me sirve para administrar 4 tablas simultáneamente con Firebird. Lo único que tienes que hacer es darle el sql al Query, abrirlo y despues puedes llamar a dbgrid.Columns.RebuildColumns para que se actualice las columnas, los anchos, etc.

En lugar de pasar un entero a la funcion Cargar(consulta :integer) usa constantes, o incluso Tipos enumerados, te saldrá un código más descriptivo:

Código Delphi [-]
type
  TTipoConsulta = (tcClientes= 0, tcProductos, tcFacturas);

var  ConsultaSql = Array [TTipoConsulta] of String = (' SELECT * FROM CLIENTES',
'SELECT UNO, DOS FROM PRODUCTOS',
'SELECT TRES, CUATRO FROM FACTURAS');

procedure Cargar( TipoDeConsulta : TTipoConsulta);
begin
  case TipoDeConsulta of
    tcClientes: ....
    tcProductos: .....
    tcFacturas: ....
  else
    raise exception.Create('No está controlado esta sql en este procedimiento');
  end;
 query1.Sql.Text := Consultasql[TipoDeConsulta];
end;

[quinqui]

mmm pues ya me parecía que usando el DBGrid saldría fácil la cosa, pero es que estoy usando el clásico StringGrid.... pero como veo, si le doy los nombres de los encabezados en el SQL, entonces demás me saldría bien la cosa usando el DBGrid...

por cierto, si estoy usando el SGrid es más que nada porque nunca he usado el DBGrid (creo recordar que cuando intenté usar uno de esos, pero en Visual, era demasiado limitado en cuanto a eventos y cosas así en comparación con el FlexGrid, por eso me quedé con la idea de que no convenía usar el DBGrid en general...), intentaré probándolo pues, jejeje ^^U... y lo de crear tipos personalizados también, a ver qué me sale (nunca he creado uno ^o^, jejeje).

disculpen las molestias
y muchas gracias a todos por su tiempo!