propriedade visible em grupo

Question

N�o sei se � possivel controlar a propriedade de v�rios edit a partir de uma variavel.Um exemplo:Tenho 12 edits:[code:1:8545a954dd]editA1   editB1 editC1editA2   editB2 editC2editA3   editB3 editC3edi...

Lynx · Answer

s� para acrescentar, da para criar procedimentos de 3 em 3.

procedure linha1
nome dos edits1
.. ..2
.. ..2

isso j� diminui bastante, mas mesmo assim da muita linha, ser� que tem algo diferente para essa situa��o.

Imoreira · Answer

D� uma adaptada a�.varx,y,z,param:integer;begin   param:=2;   for y:=0 to painel.controlcount-1 do begin      z:= strtoint(copy((painel.controls[y] as tedit).name,pos(�Edit�,(painel.controls[y] as tedit).name)+4,2));      for x:=param to painel.controlcount-1 do begin         if (z=x) then begin            (painel.controls[x] as tedit).visible:=false;         end;      end;   end;end;...

Lynx · Answer

pessoal, desculpe pelo t�pico.Acabei fazendo da maneira que postei acima...Ficou bem menor.Mas fiquem a vontade para postar outras maneiras.valeu...

Marcio.theis · Answer

Vc pode fazer desta forma, pode melhorar o c�digo ainda:

var
    x: integer;
    texto: String;
begin
for x:=0 to Self.ComponentCount - 1 do
    begin
    if Self.Components[x].ClassType = TEdit then
        begin
        texto:=(Self.Components[x] as TEdit).Name;
        texto:=Copy(texto,Length(texto),1);
        if StrToInt(texto) > param then
            (Self.Components[x] as TEdit).Visible:=False;
        end;
    end;

Lynx · Answer

Postei bem na hora que voc�s postou.Certeza vai diminuir mais ainda.valeu...

Marcio.theis · Answer

Uma coisa que vc pode fazer � setar a propriedade [i:a10eaa39c4]Tag[/i:a10eaa39c4] dos edit�s de acordo com o seu n�, ou seja, coloca os tr�s primeiros como 1, depois 2, e assim at� o 12�, ficando o c�digo mais simples ainda:

var
    x: integer;
begin
for x:=0 to Self.ComponentCount - 1 do
    begin
    if Self.Components[x].ClassType = TEdit then
        if (Self.Components[x] as TEdit).Tag > param then
            (Self.Components[x] as TEdit).Visible:=False;
    end;

Lynx · Answer

e eu fazendo gambiarra, falta de conhecimento mesmo,ainda bem que eu n�o reclamo, pior � as pessoas que fazem isso e dizem que o pascal � muito lento para sistema.valeu mesmo...

Lynx · Answer

s� mais uma pergunta, � possivel fazer isso com tag, mas em componentes diferentes, sem repetir.Exemplo em TLabel, e TEDit ao mesmo tempo...

Marcio.theis · Answer

sim... a �nica coisa que vc tera de alterar sera a fun��o, que ficaria assim:

var
    x: integer;
begin
for x:=0 to Self.ComponentCount - 1 do
    begin
    if Self.Components[x].ClassType = TEdit then
        begin
        if (Self.Components[x] as TEdit).Tag > param then
            (Self.Components[x] as TEdit).Visible:=False;
        end
    else
        begin
        if Self.Components[x].ClassType = TLabel then
            if (Self.Components[x] as TLabel).Tag > param then
                (Self.Components[x] as TLabel).Visible:=False;
        end
    end;
end;

Lynx · Answer

Valeu Mesmo !!Est� voando agora...

F�rum propriedade visible em grupo #299143