--- Gilson escreveu:
> (...)
> Mas o bom da história é q agora com a colaboração de
> todos ficou show!!
>
> []'s
>
> Gilson
[--x--]
[Welson] É como diz o velho deitado: "Duas cabeças pensam melhor do que uma."
Se bem que aqui foram mais de duas, mas enfim, a frase é isso aí. ^_^
[]s.
===
me de Eduardo
Enviada em: sexta-feira, 1 de setembro de 2006 09:27
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Rotina para limpar campos dando problemas me
unit sem form
Gilson, desta forma não vai resolver o problema por q dentro da classe
não existe estes obejetos.
Mas a sua
Gilson, desta forma não vai resolver o problema por q dentro da classe
não existe estes obejetos.
Mas a sua ideia melhoraria a rotina disponibilizada pelo Rogerio Martins.
procedure LimparCampos(pai: TForm)
begin
for i := 0 to pai.ComponentCount -1 do
begin
if (pai.Comp
Experimente usar desta forma:
procedure TNomedoFormulario.LimparCampos;
var
I: Integer;
Temp: TComponent;
begin
for I := ComponentCount - 1 downto 0 do
begin
Temp := Components[I];
if (Temp is TCustomEdit) then
begin
TCustomEdit(Components[i]).Clear;
end;
end;
end;
4 matches
Mail list logo