o sea que realmente no existe una forma directa como con PHP
...
les explico mejor mi caso:
He hecho un procedimiento que realiza una consulta y muestra los resultados en una Grid. La idea es que esta Grid se adapte al formato de dicho resultado; me refiero específicamente a la cantidad de columnas y al texto de la fila de encabezados.
el procedimiento debe ser capaz de decidir, aparte de cuál consulta realizar, qué encabezados darle a la grilla, y a eso iba yo con cómo darle valores distintos a un mismo arreglo, pero de manera dinámica.
esto es, que si, por ejemplo, consultara por Usuarios, la Grid debiera tener 3 columnas y sus encabezados debieran decir algo como "ID", "Clave" y "Nivel"; luego, si consultara por Clientes, los encabezados debieran ser 4 y decir "Nombre", "Dirección", "Fono" e "Email"... etc...
en este caso, el procedimiento se vería algo así como esto :
Código Delphi
[-]
procedure Cargar(Consulta: Integer);
var
i : Integer;
miArray : Array of String;
begin
case Consulta of
1 :
begin
SetLength(miArray, 3);
miArray := ('ID', 'Clave', 'Nivel');
end;
2:
begin
SetLength(miArray, 4);
miArray := ('Nombre', 'Dirección', 'Fono', 'Email');
end;
end;
miGrid.ColCount := Length(miArray);
for i := 0 to Length(miArray) - 1 do
miGrid.Cells[i, 0] := miArray[i];
end;
la idea, en función de mi flojera, es no tener que hacer esto por cada opción de Consulta
:
Código Delphi
[-]
case Consulta of
1 :
begin
SetLength(miArray, 3);
miArray[0] := 'ID';
miArray[1] := 'Clave';
miArray[2] := 'Nivel';
end;
.
.
.
esop....