Array
(
)

Variáveis

Roberto Rossi
   - 09 ago 2004

Existe uma maneira no delphi de se atribuir um mesmo valor a varias variaveis diferentes em uma única linha de comando. Por exemplo, tenho 10 variaveis e quero atribuir o valor 0 para elas. Do modo normal seria assim:
var1 := 0;
var2 := 0;
var3 := 0;
var4 := 0; .... var10 := 0;

o que eu quero saber é se não existe algo tipo assim:
var1, var2, var3,var4, var5, var6, var7, var8, var9, var10 := 0;

sei que isso não existe no delphi mas tem algo semelhante?


Nildo
   - 09 ago 2004

Assim não, mas tem algo semelhante...
Você cria um Array. Assim:

#Código


var
Variavel: array[1..10] of Integer;
nAux: Integer;
begin
for nAux := Low( Variavel ) to High( Variavel ) do
Variavel[ nAux ] := 0;
end;


E ao invez de você usar Var1 Var2 Var3 ... Var10 você usa assim:
Variavel[1], Variavel[2], Variavel[3]...Variavel[10]

Ok?


Roberto Rossi
   - 09 ago 2004

e se as variaveis tiverem nomes diferentes, ao inves de var1, var2, var3
fosse dia, tarde, noite. Como ficaria o comando?


Nildo
   - 09 ago 2004

Nesse caso não taria como fazer isso. Vai ter que inicializar uma a uma.