Fórum Resultado de busca dentro de array? #229418

procedure TForm1.Button1Click(Sender: TObject);
var nome, email: Array of String;
    i,n: integer;
begin
  // Determinando o tamanho do Array...
  n:= ADOQuery1.RecordCount;
  SetLength(nome, n);
  SetLength(email, n);
  // Loop na Query...
  i:= 0;
  with ADOQuery1 do
    begin
      First;
      while not Eof do
        begin
          nome[i]:= FieldByName(´nome´).AsString;
          email[i]:= FieldByName(´email´).AsString;
          Next;
          inc(i);
        end;
    end;
  // Como exemplo : colocando o Array num Memo...
  for i:= 0 to (n - 1) do Memo1.Lines.Add(nome[i] + ´ - ´ + email[i]);
end;