Crianção de componente, atulizaçao propriedade

Delphi

02/02/2004

Qual é a maneira mais certa e pratica de atualizar um campo do tipo TStrings. Tenho uma propriedade num componente que estou criando
e nela vou jogar os campos de uma tabela. queria atualizar está propriedade qdo atualizasse o Datasource deste componente. Ou seja,
qdo o datasource fosse nulo esvaziar a propriedade se alterasse o datasource jogaria os novos campos e tiraria os antigos.


Acacio

Acacio

Curtidas 0

Respostas

Beppe

Beppe

02/02/2004

Declare o DataSource assim:
property DataSource: TDataSource read FDataSource write SetDataSource;


Tecle Ctrl+Shift+C.

No SetDataSource, coloque:
if FDataSource <> Value then
begin
  FDataSource := Value;
  if Value = nil then
    FieldList.Clear
  else
  begin
    // adiciona os campos ao FieldList: TStrings;
  end;
end;



GOSTEI 0
POSTAR