Artigos Delphi Delphi .NET – Carregando DataGrid com dados de classe

Delphi .NET – Carregando DataGrid com dados de classe

 

Nesse artigo demonstrarei como carregar um DataGrid com dados de uma classe, como seria isso, é simples, vamos definir uma classe, por exemplo de usuário, nessa classe estarão contidas os seguintes dados, nome, idade e email. Primeiro criaremos a interface, depois demonstrarei a definição da classe, após a criação dos objetos e por último como carregar esses objetos do tipo usuário no DataGrid, então vamos ao código.

Criando a Interface e definindo a classe usuario.

Abra o Borland Delphi .Net (Versões 8/2005/2006), crie uma nova aplicação do tipo Windows Forms Application – Delphi for .Net, coloque um componente DataGrid altere a propriedade name para dgDados e coloque um componente button logo abaixo e altere a propriedade name para btnCarregar e a propriedade Text para Carregar.

Agora vamos definir a classe usuario que chamaremos de TUsuario, essa classe terá três propriedade como comentadas no começo desse artigo sendo elas nome, idade e email, coloque o código da Listagem 1 logo após a declareção Type da unit WinForm.

 

Listagem 1. Declaração da classe TUsuario.

TUsuario = class

  private

    FEmail: string;

    FIdade: Integer;

    FNome: string;

  published

    property Nome: string read FNome write FNome;

    property Idade: Integer read FIdade write FIdade;

    property Email: string read FEmail write FEmail;

  end;

 

Criação dos objetos do tipo TUsuario e carregando o DataGrid

Para criar objetos do tipo TUsuario define uma Array do tipo TUsuario de tamanho três, o tamanho do array definirá a quantidade de linhas do nosso DataGrid, nesse exemplo fiz de forma estática mas também poderia ser feito de forma dinâmica com muita facilidade, coloque o código da Listagem 2 no btnCarregar, esse código será responsável por criar os objetos e carrega-los no DataGrid

 

Listagem 2. Criação dos objetos e carregando os mesmos no DataGrid.

var

  Usuarios: Array[1..3] of TUsuario;

begin

  //Criando os Objetos

  Usuarios[1] := TUsuario.Create;

  Usuarios[1].Nome := 'Jefferson';

  Usuarios[1].Idade := 18;

  Usuarios[1].Email := 'jefferson@bi.com.br';

 

  Usuarios[2] := TUsuario.Create;

  Usuarios[2].Nome := 'Isete';

  Usuarios[2].Idade := 40;

  Usuarios[2].Email := 'isete@bi.com.br';

 

  Usuarios[3] := TUsuario.Create;

  Usuarios[3].Nome := 'Jaime';

  Usuarios[3].Idade := 41;

  Usuarios[3].Email := 'jaime@bi.com.br';

 

  //Carregando o DataGrid

  dgDados.SetDataBinding(Usuarios, '');

Conclusões

Bom, pra quem usa POO esse possibilidade de carregar em um DataGrid dados de classes será muito útil. Abraços a Todos.