limpando edits
Olá pessoal preciso limpar em um formulários mais ou menos 60 edits, pra não colocar txtnome.text:= ´´, eu quero criar um funcão que faça isso, mas não é uma função tão simples assim, pois não quero colocar o nome da edit. Vou mostrar como eu faço isso em VB.
for i=0 to form.controls.count
if controls(i).name,3)= text then
controls(i).text = ´´
endif
for i=0 to form.controls.count
if controls(i).name,3)= text then
controls(i).text = ´´
endif
Anonymous
Curtidas 0
Respostas
Anonymous
15/02/2003
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;
Valeu
Até mais
Ruy Salles
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;
Valeu
Até mais
Ruy Salles
GOSTEI 0