Tag - Please !!!

Question

Diversos componentes tem uma [b:d6479a601d]Propriedade Tag[/b:d6479a601d]. Como a Query, dataSource, ClientDataSet... O que est� propriedade faz ?Muito Obrigado!...

Anonymous · Answer

Esta propriedade n�o faz nada !A principal utiliza��o � como um �FLAG�.Por exemplo:procedure ZeraComponentes(const Form: TForm);var I: integer;begin  for I:= 0 to (Form.ComponentCount-1) do   if (Form.Components is TDBEdit) then    if TDBEdit(Form.Components).Tag = -1 then      TDBEdit(Form.Components).Field.Value:=0;end;A procedure atribui 0 quando a propriedade Tag = -1[url]www.veloso.kit.net[/url]...

Anormal · Answer

[quote:45b46da2b2=�www.veloso.kit.net�]Esta propriedade n�o faz nada !A principal utiliza��o � como um �FLAG�.Por exemplo:procedure ZeraComponentes(const Form: TForm);var I: integer;begin  for I:= 0 to (Form.ComponentCount-1) do   if (Form.Components is TDBEdit) then    if TDBEdit(Form.Components).Tag = -1 then      TDBEdit(Form.Components).Field.Value:=0;end;A procedure atribui 0 quando a propriedade Tag = -1[url]www.veloso.kit.net[/url][/quote:45b46da2b2]____________________Mas quando a propriedade Tag vai ser -1 ? Pois n�o foi atribuido nada para ela... ?...

Anonymous · Answer

Voc� atribui o que quiser na TAG (Inteiro claro).

Imagine um Form com v�rios TDBEdits e voc� deseja que os n�mericos tenham o valor inicial zero, ent�o coloque no TAG=-1 nos TDBEdits n�mericos. Execute a procedure ZeraComponentes() quando for incluir um novo registro.

Detalhe: eu coloquei -1, por�m poderia ser qualquer n�mero inteiro, menos zero, pois o TAG j� v�m zerado, funciona com uma �FLAG�.

[url]www.veloso.kit.net[/url]

Dor_poa · Answer

...

F�rum Tag - Please !!! #147460