componentes do DBEdit e Edit

[luanamarques 0]

alguem sabe porque apenas o segundo código funciona? o que ha de errado com o 1º? alguem poderia me ajudar?

obrigada

1)

 

if Assigned(FindComponent('DBEdit1' +IntToStr(i))) then
DBEdit1(FindComponent('DBEdit1'+IntToStr(i))).Free;
with DBEdit1.Create(Self) do
begin
Parent := Self;
SetBounds(8, 17, 377, 21);
Text := ' ';
Name := 'Edit1';
end;

 

 

 

2)

 

if Assigned(FindComponent('Edit2')) then
TEdit(FindComponent('Edit2')).Free;
with TEdit.Create(Self) do
begin
Parent := Self;
SetBounds(8, 48, 377, 21);
Text := ' ';
Name := 'Edit2';
end;

[Eduardo Alcântara 6]

Você colocou no segundo código:

with TEdit.Create(Self) do

Quando deveria ser:

with TEdit2.Create(Self) do