RES: [delphi-br] [maf] Resetar variavel

2006-01-19 Por tôpico Elazar 
**
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

*

Voce pode fazer um loop no TForm.ComponenteCount -1...
verificando pelos componentes que sao Tlabel

Exe

procedure TForm1.Button1Click(Sender : TObjetct);
var
  Cont : Integer; {Varivel para controlar o loop }
begin
  { Faco um loop em todos os componentes do form }
  for Cont := 0 to TForm1.ComponentCount -1 do begin

{ Verifico se o mesmo é um label }
if (TForm.Components[Cont] is TLabel) then 

   { Se for um label, entao dou um cast (procure no help do delphi
sobre 'is' e 'as')
 ajustando o caption do mesmo para '' }
   (TForm.Components[Cont] as TLabel).Caption := '';
  end;
end;

Ok; (pode haver erros de digitacao, pois fiz o exemplo aqui no email)

Atenc.
Elazar






___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



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

RES: [delphi-br] [maf] Resetar variavel

2006-01-19 Por tôpico Elazar 
Daniel;


Olá Eleazar,

*

So pra corrigiré 'Elazar' mesmo (sem o segundo 'e')...rs 


realmente...muito interessante, e é incrivel pois, todos os dos exemplos
de codigo assim que ja vi usam o as mesmo de1pois que foi verificado com
o is.

if (TForm.Components[Cont] is TLabel) then 
TLabel(TForm.Components[Cont]).Caption := '';


Comentário Isso que da trabalhar na Borland

Atenc.
Elazar






___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



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

RES: [delphi-br] [maf] Resetar variavel

2006-01-18 Por tôpico Cid Willame 
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=10157LID=293453D
GC=BADGStor=DHSDGSite=YahooConum=BRDURL=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