Cómo asignar valores a una variable tipo Array

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