Fórum Apagar Edits. #321842
22/05/2006
0
Boas Pessoal, é possivel apagar o texto de todas as edits do form?
Obrigado.
Abraço.
Rui Pedro
Obrigado.
Abraço.
Rui Pedro
Rui Lisboa
Curtir tópico
+ 0
Responder
Posts
22/05/2006
Adriano Santos
[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:
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;
Responder
Gostei + 0
22/05/2006
Rui Lisboa
Esta dando erro em:
if Componentes[I] is TEdit then
if Componentes[I] is TEdit then
Responder
Gostei + 0
22/05/2006
Adriano Santos
[quote:c326acef65=´Rui Lisboa´]Esta dando erro em:
if Componentes[I] is TEdit then[/quote:c326acef65]
Tem um ´E´ a mais.
if Componentes[I] is TEdit then[/quote:c326acef65]
Tem um ´E´ a mais.
if Components[I] is TEdit then
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)