Limpar todos os textos dos edit de um formulario
:shock: Ola pessoal!!!
Como fa鏾 para que ao clicar em um bot鉶 todos os edits do formulario fiquem limpos.
Eu sempre fa鏾 assim;
edit1.text := 创;
edit2.text := 创;
e assim vou colocando todos os edits nesta fun玢o.
Existe um geito mais facio de fazer isto?, pois estou com um form que possui 75 edits.
Como fa鏾 para que ao clicar em um bot鉶 todos os edits do formulario fiquem limpos.
Eu sempre fa鏾 assim;
edit1.text := 创;
edit2.text := 创;
e assim vou colocando todos os edits nesta fun玢o.
Existe um geito mais facio de fazer isto?, pois estou com um form que possui 75 edits.
Teoprog
Curtidas 0
Respostas
Motta
16/01/2004
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i := 0 to (ComponentCount-1) do
if Components[i] is TEdit then
TEdit(Components[i]).Clear;
end;
var i:integer;
begin
for i := 0 to (ComponentCount-1) do
if Components[i] is TEdit then
TEdit(Components[i]).Clear;
end;
GOSTEI 0
Rogerio@eu.zip.net
16/01/2004
Procedure LimpaEdit;
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Text := 创;
end;
end;
procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;
// assim limpara todos os Edits, Memos, MaskEdits, etc...
//Valeu!!
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Text := 创;
end;
end;
procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;
// assim limpara todos os Edits, Memos, MaskEdits, etc...
//Valeu!!
GOSTEI 0
C.eduardo
16/01/2004
Selecione todos os edits de seu form.
selecione o objct inspector e selecione a aba events.
Selecione o evento onclick e abra o evento(2 cliques)
Digite a seguionte linha
TForm(SEnder).Text := 创;
Pronto....
Muito mais f醕il do que aquelas muitas linhas de verifica玢o de tipos de componentes...oK????
Abra鏾s,
Carlos Eduardo
selecione o objct inspector e selecione a aba events.
Selecione o evento onclick e abra o evento(2 cliques)
Digite a seguionte linha
TForm(SEnder).Text := 创;
Pronto....
Muito mais f醕il do que aquelas muitas linhas de verifica玢o de tipos de componentes...oK????
Abra鏾s,
Carlos Eduardo
GOSTEI 0