Procedure LimpaCampos;
Var i : integer;
Begin
For i := 1 to form_.ComponentCount -1 do
Begin
If form_.Components[i] is TLabel then begin
(form_.Components[i] as TLabel).Caption:=;
End;
End;
End;
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Topolniak
Enviada em: quarta-feira, 18 de janeiro de 2006 16:50
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [maf] Resetar variavel
Mano, tenta assim ó:
var
i:Smallint;
begin
{-----------------------------------------------}
For i := 1 To ComponentCount - 1 Do
If (Components[i] Is TLabel) Then
with Components[i] As TLabel Do
Caption:='';
End;
Verifique o código por favor, pois não compilei
[]'s
Topolniak.
----- Original Message -----
From: "tecnisystems" <[EMAIL PROTECTED]>
To: "delphi-br" <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, January 18, 2006 7:17 PM
Subject: [delphi-br] [maf] Resetar variavel
Pessoal
Tenho a seguinte duvida. Suponhamos que eu tenho 20 labels com os seguintes
nomes. lbNome1, lbNome2, ..., lnNome20. Gostaria de colocar valor vazio no
caption delas com um comando for. Alguém já fez algo parecido, pois na
verdade tenho 140 labels a zerar.
Att,
Marcos Ferreria
Tecnisystems Informática
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12fmv11tj/M=387526.7663462.8711128.1588051/D=brc
lubs/S=2137111264:HM/Y=BR/EXP=1137630741/A=3244686/R=2/id=noscript/SIG=16ea5
dsno/*http:/landingstrip.dell.com/landingstrip/ls.asp?CID=10157&LID=293453&D
GC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.dell.com/content/
products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Ddhs>
<http://br.i1.yimg.com/br.yimg.com/i/br/ads7/0117_lrec_dell_ene13_dhs_dim110
0n.gif>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
