Contar Columnas de una Tabla.

[nicolasdom]

Necesito contar las columnas de una tabla para de esta manera cargar e inicializar un arreglo. Pero no se como se hace...

  
 
  IBQuery1.Close;
  IBQuery1.SQL.Clear;
  IBQuery1.SQL.Add('SELECT * FROM PERMISOS');
  IBQuery1.SQL.Add('WHERE nombre_usuario = :nombre_usuario;');
 
  "cantidad de columnas" := Select? Count? What????
 
  IBQuery1.Active:=True;
  IBQuery1.Open; 
  While "cantidad de columnas" do
	arreglo[i]:=IBQuery1.Fields[i].AsString;
 
  IBQuery1.Close;

Espero soluciones... si es que las hay...

[[basti]]

Hola

columnas := IBQuery1.Fields.Count;

Pero tienes que ponerlo después de abrir la tabla.

Un saludo

[ramiretor]

Hola:
Para que el while funcione debes tomar en cuenta que el arreglo donde se guardan las columnas, por ejemplo, supongamos que el componente se llama query queda:

[delphi]
with query do
begin
open;
first;
for i:= 0 to FieldCount - 1 do
begin
.....
end;

end;

[nicolasdom]

Muchas Gracias a los dos. Lo pude sacar adelante sin dificultad gracias a que las respuestas fueron puntuales. Uso lo que dijo basti ya que mi select devolvia un solo resultado.