como no vb?

Question

sei programar em vb e estou come�ando a aprendere em delphi e tenho uma pequena duvida;no vb quando eu criar qualquer objeto como um array bastava simplesmento copiar e colar o objeto e o array estava...

Anonymous · Answer

Em tempo de design nao tem como....

As-mad · Answer

Se eu entendi direito vc pode utilizar a propriedade tag para configurar os grupos, mas ter� q utilizar c�digo para controlar esse agrupamento. Se vc utilizar um evento compartilhado por exemplo poderia utilizar algo como o comando:

procedure TForm1.Edit1Click(Sender: TObject);
begin
case (Sender as TEdit).Tag of
0: ShowMessage(�Edit 1�);
1: begin
ShowMessage(�Edit 2�);
Edit2.Visible := False;
end;
end;
end;

Anonymous · Answer

:D Fico agradecido pela boa vontade de voc�s, mas ou eu n�o consegui entender direito a dica :oops: ou n�o enderam o meu problema, vou tentar ser mais claro na minha pergunta.
imagine que eu tenha um cadastro com umas 30 editbox, e que em determinada parte no program eu tenha que... vamos dizer limpar todas e pelo o que eu conhe�o do delphi at� agora(que por sinal n�o � muito(Pra dizer a verdade quase nada :oops: ))eu teria que apagar uma por uma.
No vb bastava eu criar um loop com as textboxcriadas como um array e o problema estava resolvido. Ex:
for a =1 to 30
campo(a).text=��
next a
com este mesmo esquema eu conseguia manipular o banco de dados. :?
o que eu gostaria de saber � que se no delphi d� para fazer algo igual, e se da, como?
Desde j� fico agradecido pela boa vontade de voc�s.
:wink:

Anonymous · Answer

Set a propriedade Tag dos componentes para um n�mero.

E fa�a como mostra abaixo:

const
  TAG_CONJUNTOX = 1;

procedure ...
var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do begin
    if TEdit(Components[i]).Tag = TAG_CONJUNTOX then
      if Components[i] is TEdit then
        TEdit(Components[i]).Text := ��;
  end;
end;

Se for fazer a operacao para todos os edits do form, entao nao precisa tratar um Tag.

Anonymous · Answer

((Teve um erro no codigo da msg anterior. Veja este.))

Set a propriedade Tag dos componentes para um n�mero.

E fa�a como mostra abaixo:

C�digo:

const
TAG_CONJUNTOX = 1;

procedure ...
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do begin
if Components[i].Tag = TAG_CONJUNTOX then
if Components[i] is TEdit then
TEdit(Components[i]).Text := ��;
end;
end;

Se for fazer a operacao para todos os edits do form, entao nao precisa tratar um Tag.

Cal · Answer

:D Muito obrigado pela dica. funcionou direitinho :D...

F�rum como no vb? #152204