Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - come far cambiare la label automaticamente ad ogni ciclo
Forum - Pascal - come far cambiare la label automaticamente ad ogni ciclo

Avatar
qwertyroby (Normal User)
Newbie


Messaggi: 15
Iscritto: 05/02/2012

Segnala al moderatore
Postato alle 19:12
Domenica, 17/03/2013
for i:=1 to 20 do
   begin
      n:= Random(10);
     label1.caption:=  n;
   end;


vorrei fare in modo tale che  la label invece di essere sempre 1  'label1' cambi ad ogni ciclo  
quindi  "label(i)" ma facendo così non funziona mi da errore come faccio a farla cambiare in
base alla variabile i ?


i:integer
n:string

PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 969
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 19:30
Domenica, 17/03/2013
Ciao!

label1, non è una variabile, ne un vettore, ma un' istanza della classe TLabel.
Nel tuo caso, - da quello che ho capito -, dovresti dichiarare e inizializzare un vettore di TLabel.

PM Quote
Avatar
qwertyroby (Normal User)
Newbie


Messaggi: 15
Iscritto: 05/02/2012

Segnala al moderatore
Postato alle 19:51
Domenica, 17/03/2013
non lo devo dichiarare ma farlo variare ad ogni ciclo i label da 1 a 20 sono già dichiarati

PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 969
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 14:13
Lunedì, 18/03/2013
Per cambiare, o ottenere il testo di una label, bisogna accedere alla property caption.
Quest' ultima opera soltanto con il tipo string, di conseguenza dovrai modificare il codice in questo modo:
Codice sorgente - presumibilmente Delphi

  1. for i:=1 to 20 do
  2. begin
  3.       n:= Random(10);
  4.       label1.caption:=  intToString(n); // trasforma il parametro in entrata n da intero a stringa
  5.       // assicurati di aver richiamato l' unit SysUtils.  
  6. end;


PM Quote