Como Melhorar - tempo de Execução
procedure TForm1.Button1Click(Sender: TObject);
begin
CriarEdit(sender);
end;
procedure TForm1.CriarEdit(Sender: TObject);
var
i: integer;
begin
i := 0;
for i:=0 to 2 do
begin
with TEdit.Create(Form1) do
begin
Name := ´demo´ + inttostr(i);
Width := 200;
Height := 20;
Top := i * height;
Left := i * 5;
Parent := Form1;
end;
end;
end;
[b:9bcbcb515f]como faço para verificar se o objeto já foi criado e assim evitar erro no clique do botão?[/b:9bcbcb515f]
begin
CriarEdit(sender);
end;
procedure TForm1.CriarEdit(Sender: TObject);
var
i: integer;
begin
i := 0;
for i:=0 to 2 do
begin
with TEdit.Create(Form1) do
begin
Name := ´demo´ + inttostr(i);
Width := 200;
Height := 20;
Top := i * height;
Left := i * 5;
Parent := Form1;
end;
end;
end;
[b:9bcbcb515f]como faço para verificar se o objeto já foi criado e assim evitar erro no clique do botão?[/b:9bcbcb515f]
Alangermano
Curtidas 0
Respostas
Massuda
14/07/2005
Para localizar um componente pelo nome (valor da propriedade Name do componente), use FindComponent(´nome do componente´); retornará nil se o componente não existir.
GOSTEI 0
Alangermano
14/07/2005
sou iniciante em delphi, você poderia me passar um exemplo por favor?
GOSTEI 0
Alangermano
14/07/2005
sou iniciante em delphi, você poderia me passar um exemplo por favor?
veja como deixei... mais mesmo assim ainda está dando erro?
não sei se posso usar assim...
procedure TForm1.CriarEdit(Sender: TObject);
var
i: integer;
begin
i := 0;
for i:=0 to 2 do
begin
if FindComponent(´TEdit´) = NIl then
begin
with TEdit.Create(Form1) do
begin
Name := ´demo´ + inttostr(i);
Width := 200;
Height := 20;
Top := i * height;
Left := i * 5;
Parent := Form1;
end;
end;
end;
end;
GOSTEI 0
Yallebr
14/07/2005
if FindComponent(´EdtNome´) then
//Achou
//Achou
GOSTEI 0