Apagar Edits.

Delphi

22/05/2006

Boas Pessoal, é possivel apagar o texto de todas as edits do form?

Obrigado.

Abraço.

Rui Pedro


Rui Lisboa

Rui Lisboa

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

22/05/2006

[quote:afe202e11c=´Rui Lisboa´]Boas Pessoal, é possivel apagar o texto de todas as edits do form?

Obrigado.

Abraço.

Rui Pedro[/quote:afe202e11c]

Sim claro, faça um for em todo o formulário, veja:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I :=  0 to ComponentCount - 1 do
    if Componentes[I] is TEdit then
      TEdit(Components[I]).Text := ´´;
end;



GOSTEI 0
Rui Lisboa

Rui Lisboa

22/05/2006

Esta dando erro em:

if Componentes[I] is TEdit then


GOSTEI 0
Adriano Santos

Adriano Santos

22/05/2006

[quote:c326acef65=´Rui Lisboa´]Esta dando erro em:

if Componentes[I] is TEdit then[/quote:c326acef65]

Tem um ´E´ a mais.

 if Components[I] is TEdit then



GOSTEI 0
POSTAR