Percentual

[Eder]

Pessoal...em tenho um form onde tem uns 200 edit´s......e preciso criar um outro edit que reajusta os valores dos 200 edit´s....ou seja....eu digito num edit chamado EDITPERCENTUAL (percentual de reajuste) e num botão eu colocaria o codigo que reajustaria os valores destes 200 edit´s....

Teria como criar um codigo simplificado para reajustar todos os 200 edit´s de uma só vez??? por que senão eu teria que criar um codigo pra cada edit...ai seria muito trabalhoso....hehehe.

muito Grato

[Graymalkin]

Sim, você pode fazer algo assim:

var caixa : TEdit;
    i : Integer;

begin
  for i:=0 to self.ControlCount-1 do
  begin
    if self.Controls[i] is TEdit then
    begin
      caixa := self.Controls[i] as TEdit;

      if caixa.Name<>'Edit1' then // Se não for a caixa com o percentual [troque o nome]
        caixa.Text := 'a'; // Aqui entra o cálculo a ser realizado
    end
  end;
end;

Certo? ;)

Graymalkin

[Guest - eder -]

Valeu..carinha..muito grato pela dica...t+