terça-feira, 26 de maio de 2009

Como Limpar Todos os Edit's de um Form de uma só vez?

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; ou

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;

Um comentário:

  1. muito bom este post....muito priveitoso para outro tipo de rotinas :D

    ResponderExcluir