Fórum Como faço para um ComboBox ter os dados da minha tabela Mysql? #547961

function ListaFuncoes: TList<TFuncao>;   //não esqueça de colocar na uses da sua unit System.Generics.Collections;
const
   SQLConsulta: String = 'SELECT * FROM TFUNCOES';
var
  Funcao: TFuncao;
begin
  Result := TList<TFuncao>.Create; 
  try
    fQuery.SQL.Clear;
    fQuery.SQL.Add(SQLConsulta);
    fQuery.Open;
    if not fQuery.IsEmpty then
    begin
      while not fQuery.Eof  then
      begin
         Funcao := TFuncao.Create;
         Funcao.Descricao := fQuery.FieldByName('DESCRICAO').AsString;
         Result.Add(Funcao);
         fQuery.Next;
      end;
    end
  except
    Result.Free;
    raise;
  end;
end;

 
procedure ListaFuncoes;
var
  Funcao: TFuncao;
  ListaFuncoes: TList<TFuncao>;
  I: System.Integer;
begin
   Funcao := TFuncao.Create;
   ListaFuncoes := Funcao.ListaFuncoes;
   FreeAndNil(Funcao);
   try
     if ListaFuncoes.Count > 0 then
     begin
         ComboBox.Items.Clear;
         for I := 0 to ListaFuncoes.Count - 1 do
         begin
            Funcao := ListaFuncoes[I].Items;
            ComboBox.Items.Add(Funcao.Descricao);
            FreeAndNil(Funcao);
         end;
     end;
   finally
     FreeAndNil(ListaFuncoes);
   end;
end;