Usando o FOR

[andrejrocha 0]

Bom dia,

 

Queria alterar o conteúdo de varios Combobox e Edits com for, é possivel... Veja o exemplo abaixo:

 

For I:= 1 to 46 do

Begin

Edit.clear;

End;

 

For I:= 1 to 220 do

Begin

ComboBox.ItemIndex := 0;

End;

 

For I:= 1 to 10 do

Begin

memo.Lines.Clear;

End;

 

O erro que dá, é que EDIT não existe quando compila...

 

Desde já agradeço qualquer ajuda..

 

Obrigado

 

Andre

[lenn0n 0]

bom dia companheiro

não eh bem assim que o delphi controla seus componentes....

tente isso

 

try	for I := 0 to ComponentCount - 1 do  //Percorre todos os Componentes do formulário	begin	  if Components[i] is TEdit then	   //se componente for do tipo "TEdit"		(Components[i] as TEdit).Clear  //faz um cast no componente atual como TEdit e limpa o texto dele	  else if Components[i] is TComboBox then   //se componente for do tipo "TComboBox"		(COmponents[i] as TComboBox).ItemIndex := 0	  else if Components[i] is TMemo then		//se componente for do tipo "TMemo"		(Components[i] as TMemo).Lines.Clear;	end;  except  end;

explicando o código, ele vai percorrer todos os componentes do form, ou seja, vai fazer um loop de 0 até a contagem de componentes menos 1 (o array começa no 0)

aí ele cai na checagem, se o componente atual (components) for do tipo tal, faz tal coisa

 

espero ter ajudado http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[andrejrocha 0]

Perfeito !!! Obrigado...