LLenar Array con Query

[RaulA]

No se si esta sera un pregunta absurda pero lo que me gustaria seria llenar un array de TDateTime con una consulta query que unicamente devuelve unos pocos TDateTime.

[Casimiro Noteví]

El query lo recorres y vas añadiendo los valores al array, ¿es eso lo que quieres hacer?, ¿es una cantidad fija o variable?

[Faust]

Originally Posted by Casimiro Notevi

El query lo recorres y vas añadiendo los valores al array, ¿es eso lo que quieres hacer?, ¿es una cantidad fija o variable?

Ahí te va el ejemplo

Código Delphi [-]
var
  qryDatos : TADOQuery;
  ArrayOfDateTime : array of TDateTime;
...
...
...
  qryDatos:= TADOQuery.Create(nil)
  qryDatos.Connection:= connADOConnection;
  with qryDatos do
  begin
    SQL.Text:= 'SELECT CampoFecha FROM TABLA ORDER BY CampoFecha';
    Open;
      while not Eof do
      begin
        SetLength(ArrayOfDateTime, Length(ArrayOfDateTime) + 1);
        ArrayOfDateTime[Length(ArrayOfDateTime) - 1]:= FieldByName('CampoFecha').AsDateTime;
        Next;
      end;
    Close;
  end;

Así al vuelo es el ejemplo que te doy... ojalá te sirva amigo