Typecast dentro de um TGroupbox

Delphi

19/01/2009

Oi Galera estou tenando percorrer os componentes dentro de um Groupbox a unica forma que encontrei foi com ControlConunt nao consegui fazer isso com ComponentCount lembrando que isso seria somente dentro do GroupBox. acontece que do jeito que consegui fazer esta dando erro de typecast

procedure tform1.carregadados;
EndPadrao : array[0..10] of string;
i: Integer;
begin
for I := 0 to GroupBox1.ControlCount - 1 do
begin
if (Controls[i] is TEdit) then
EndPadrao[i] := (Controls[i] as TEdit).Text;
end;
end;

Obrigado !!!

Eduardo


Eduardo Gomes

Eduardo Gomes

Curtidas 0

Respostas

Fabriciocolombo

Fabriciocolombo

19/01/2009

No trecho que vc postou, vc está usando o Controls[i] do Form, e não do GroupBox.

procedure tform1.carregadados; 
EndPadrao : array[0..10] of string; 
i: Integer; 
begin 
for I := 0 to GroupBox1.ControlCount - 1 do 
begin 
if ([b]GroupBox1.[/b]Controls[i] is TEdit) then 
EndPadrao[i] := ([b]GroupBox1.[/b]Controls[i] as TEdit).Text; 
end; 
end;



GOSTEI 0
Woinch

Woinch

19/01/2009

Ou você pode fazer com o ComponentCount verificando se a propriedade Parent do Componente é o GroupBox que você quer pegar os filhos dele!


GOSTEI 0
POSTAR