| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
eduparolin
Novato
Registrado: Quarta-Feira, 18 de Janeiro de 2012
Mensagens: 2
|
 Enviada: Qua Jan 18, 2012 5:27 pm Assunto: Preciso de uma Label "Global" |
 |
|
Galera, estou com um problema, eu quero simplificar meu codigo:
| Código: | procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Label1.Caption:= IntToStr(Random(25));
Label2.Caption:= IntToStr(Random(25));
Label3.Caption:= IntToStr(Random(25));
Label4.Caption:= IntToStr(Random(25));
Label5.Caption:= IntToStr(Random(25));
Label6.Caption:= IntToStr(Random(25));
Label7.Caption:= IntToStr(Random(25));
Label8.Caption:= IntToStr(Random(25));
Label9.Caption:= IntToStr(Random(25));
Label10.Caption:= IntToStr(Random(25));
Label11.Caption:= IntToStr(Random(25));
Label12.Caption:= IntToStr(Random(25));
Label13.Caption:= IntToStr(Random(25));
Label14.Caption:= IntToStr(Random(25));
Label15.Caption:= IntToStr(Random(25));
end; |
porem não consigo, ja tentei varias coisas mais preciso da ajuda de voces!
Ultima tentativa:
| Código: |
procedure TForm1.Button1Click(Sender: TObject);
var
rand: TLabel;
begin
Randomize;
rand.Caption:= IntToStr(Random(25));
end;
|
Neste código as minhas Labels não mudam, precisava de uma solução para elas mudarem (randomizarem) que seja simples !  |
|
| Voltar ao Topo |
|
 |
marcosalles
Moderador
Registrado: Quarta-Feira, 26 de Março de 2008
Mensagens: 1695
Localização: Muriaé Mg
|
| Enviada: Qua Jan 18, 2012 5:39 pm Assunto: |
|
|
use enumerator a partir do Delphi 2007 se não me engano
var
c:TComponent;
begin
for C in self do
if C is TLAbel then
TLabel(C).Caption:=intToStr(Random(25));
_________________
http://marcosalles.wordpress.com
Desenvolvo FreeLancer e presto Consultoria
Orientação Online DataSnap DbX ClientDataSet
POO , Padrões de Projeto e dúvidas de Delphi em
Geral |
|
| Voltar ao Topo |
|
|
eduparolin
Novato
Registrado: Quarta-Feira, 18 de Janeiro de 2012
Mensagens: 2
|
| Enviada: Qua Jan 18, 2012 5:51 pm Assunto: |
|
|
| marcosalles escreveu: | use enumerator a partir do Delphi 2007 se não me engano
var
c:TComponent;
begin
for C in self do
if C is TLAbel then
TLabel(C).Caption:=intToStr(Random(25)); |
Opa, valeu cara, era isso que eu estava precisando, vou ver se funciona (= |
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Qua Jan 18, 2012 8:49 pm Assunto: |
|
|
pra qq delphi
| Código: | var
c :TControl;
i : integer;
begin
for i := 0 to Controls.Count - 1 do
begin
C := Controls[I];
if C is TLabel then
TLabel(C).Caption:=intToStr(Random(25));
end; |
|
|
| Voltar ao Topo |
|
|
marcosalles
Moderador
Registrado: Quarta-Feira, 26 de Março de 2008
Mensagens: 1695
Localização: Muriaé Mg
|
| Enviada: Qua Jan 18, 2012 9:29 pm Assunto: |
|
|
| gilsonnrodrigues escreveu: | pra qq delphi
| Código: | var
c :TControl;
i : integer;
begin
for i := 0 to Controls.Count - 1 do
begin
C := Controls[I];
if C is TLabel then
TLabel(C).Caption:=intToStr(Random(25));
end; |
|
Náo. Não é pra qq Delphi e o codigo acima utilizandoControls.Count
nen para qualquer label. Pois o Label que esta dentro de um Panel
não pega varrendo o parent do Form
_________________
http://marcosalles.wordpress.com
Desenvolvo FreeLancer e presto Consultoria
Orientação Online DataSnap DbX ClientDataSet
POO , Padrões de Projeto e dúvidas de Delphi em
Geral |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
