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

Thu, 19 Jan 2006 09:58:31 -0800 

Boua essa daí mestre....ualáááá
[]'s
Topolniak.
----- Original Message ----- 
From: "Daniel Polistchuck" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, January 19, 2006 2:31 PM
Subject: RE: [delphi-br] [maf] Resetar variavel


Olá Eleazar,

Só uma sugestão. Seu código:
    { 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 := '';

poderia ser reescrito assim

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

O as não é necessário, já que você já usou o "is".

Um abraço,

Daniel Polistchuck
Consulting Services Manager
<http://info.borland.com.br/borcon> Tel.: (55 11) 2165 - 8000 / 8196-5947
<http://info.borland.com.br/borcon> [EMAIL PROTECTED] - 
www.borland.com.br <http://www.borland.com.br/>

A Borland Software é líder mundial em soluções independentes de plataforma 
para a Criação Otimizada de Software (Software Delivery Optimization), 
auxiliando nossos clientes a transporem as barreiras atuais do 
desenvolvimento, para maximizar o valor do software para seu negócio.

  <http://info.borland.com.br/delphi>



________________________________

From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On 
Behalf Of Elazar
Sent: Thursday, January 19, 2006 8:09 AM
To: delphi-br@yahoogrupos.com.br
Subject: RES: [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

*****************

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






Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE



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

Responder a