Pasar Datos de una Consulta SQL a un array

[ecfisa]

Hola webmasterplc.

Si no te entendí mal, sería algo como:

Código Delphi [-]
...
type
  TTelNom = record
    Tel : string;
    Nom : string;
  end;

var
  contactos: array of TTelNom;

procedure TForm1.btnRegsToArrayClick(Sender: TObject);
begin
  with Datos.sqdmiembros do
  begin
    Close;
    SQL.Text := 'SELECT * FROM vmiembros WHERE gf_nombre = ' + QuotedStr(edtgf.Text);
    Open;
    while not Eof do
    begin
      SetLength(contactos, Length(contactos)+1);
      contactos[High(contactos)].Tel := FieldByName('mien_celular').AsString;
      contactos[High(contactos)].Nom := FieldByName('miem_nombre').AsString;
      Next;
    end;
  end;
end;

Ejemplo, mostrarlos en un ListBox:

Código Delphi [-]
procedure TForm1.btnShowClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= Low(contactos) to High(contactos) do
    ListBox1.Items.Add(Format('%s %s', [contactos[i].Nom, contactos[i].Tel]));
end;

Saludos.