• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ber0x88

Renomear buttoes

7 mensagens neste tópico

Boas!

Estou a realizar um projecto, e deparei-me com o seguinte problema, como tenho uns 15 butoes para renomear a caption de cada um deles, pensei fazer um ciclo While:


var numero : integer;

numero := 1;
while numero < 15 do
begin
Button inttostr(numero).caption := 'Livre'; //esta parte é que não sei como fazer para ficar o botton1, button2, etc... até ao 15.
end

Aguardo alguma resposta  :wallbash:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

var numero : integer;

numero := 1;

while numero < 15 do

begin

Button inttostr(numero).caption := 'Livre'; //esta parte é que não sei como fazer para ficar o botton1, button2, etc... até ao 15.

end

Como tu queres fazer acho q nao da -.-

mas tambem tou cheio de sono, tou a fazer isto mal

var
i, contagem: integer;
begin
for i:=0 to 15 do
contagem:= contagem + 1;
Button+Contagem.Caption:= 'Livre';
End;
end;

Se fosse como querias devia ficar mais ou menos assim,

mas e mais facil renomear um de cada x, nao -.-..

Ou metes button(i) lol -.-.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O que me está a fazer parar é essa linha:

Button+Contagem.Caption:= 'Livre';

de resto, o ciclo isso é o menos...

dá o seguinte erro:

" Undeclared identifier: 'button' "

sim, posso renomea-los manualmente, mas caso queira renomear novamente quando o programa estiver a correr, tenho que colocar umas 15 linhas de código, se fosse com um ciclo ficava numas 5...  :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Pois, mas da maneira que queres fazer nao sei se da, e se der, e capaz de causar alguns bugs

Abraç

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pois, já procurei no google mas não encontro nada...  :wallbash:

lá vou ter que por mais linhas de código...

obrigado na mesma  :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

Assim de repente, talvez te possa ajudar

var 
   s1: string ;
   i: integer ;
begin
   for i := 1 to 15 do
   begin
      // suponho que tenhas os nomes de botões como Button1, Button2 ,    
      // etc ... , caso assim não seja, ajusta o s1 para as tuas necessidades
      s1:= 'Button'+inttostr(i) ;
      (FindComponent(s1) as TButton).caption := 'Livre' ;
   end
end;

hasta

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

Assim de repente, talvez te possa ajudar

var 
   s1: string ;
   i: integer ;
begin
   for i := 1 to 15 do
   begin
      // suponho que tenhas os nomes de botões como Button1, Button2 ,    
      // etc ... , caso assim não seja, ajusta o s1 para as tuas necessidades
      s1:= 'Button'+inttostr(i) ;
      (FindComponent(s1) as TButton).caption := 'Livre' ;
   end
end;

hasta

Obrigado ndm funcionou perfeitamente  :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora