Objetos no ListView - Parte 1

Olá galera, nesta Quick Tips, irei mostra como podemos adicionar e remover objetos em um ListView. Inicialmente vamos montar uma classe e logo instanciar um objeto para irmos adicionando no ListView.

Vamos criar uma nova Unit e salvar a mesma como uCliente.pas. Nela teremos 3 propertys :

·Codigo, do tipo String;

·Descricao, do tipo String;

·Sexo, do tipo String;

unit uCliente;

interface

Type

TCliente = class

private

FDescricao: String;

FCodigo: String;

FSexo: String;

 procedure SetCodigo(const Value: String);

procedure SetDescricao(const Value: String);

procedure SetSexo(const Value: String);

{ private declarations }

protected

{ protected declarations }

public

{ public declarations }

property Codigo : String read FCodigo write SetCodigo;

property Descricao : String read FDescricao write SetDescricao;

property Sexo : String read FSexo write SetSexo;

published

{ published declarations }

end;

implementation

{ TCliente }

procedure TCliente.SetCodigo(const Value: String);

begin

FCodigo := Value;

end;

procedure TCliente.SetDescricao(const Value: String);

begin

FDescricao := Value;

end;

procedure TCliente.SetSexo(const Value: String);

begin

FSexo := Value;

end;

end.

Para ficar mais claro a criação da classe e evitar que seja digitado todo este código veja como fazer isso de maneira simples. Digite a clausula Type e declare a classe TCliente, logo em seguida na seção public vamos declarar 3 propertys com os seus respectivos tipos, neste caso todos são string para facilitar. Feito estes passos basta você posicionar o cursor em qualquer uma das propertys e usando as teclas CTRL + SHIF + C, todo o restante será implementando automaticamente como foi visto acima.

Type

TCliente = class

private

{ private declarations }

protected

{ protected declarations }

public

{ public declarations }

property Codigo : String;

property Descricao : String;

property Sexo : String;

published

{ published declarations }

end;

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@lithic.com.br