Duvida Besta

[Guest - Jânio -]

Hi p,

Desculpem a duvida besta, + não consegui doc.pra isso...,como posso ou tem como fazer, se eu quiser atribui um mesmo valor a varias variaveis em uma s[o linha ?

no exemplo abaixo :

var1 := 1;

var2 := 1;

var3 := 1;

var4 := 1;

etc...

existe como fazer esse comando em uma só linha?

parecido com isso:

--> var1, var2, var3, var4 := 1

assim com é feito na declaração da var...

var1, var2, var3, var4 : shortint;

se alguém souber de algum jeito, agradeceria...

falows...

[s3c]

var vars:array[0..3] of ShortInt;
begin
  FillChar(vars, SizeOf(vars), 1);
end;