Thanks. Gracias.
El 26/05/2011 05:01 p.m., Jonas Maebe escribió:
On 26 May 2011, at 23:18, Luis Fernando Del Aguila Mejía wrote:
How fill of the same value a dynamic array?
{$codepage utf8}
Var A,B:array of word;
i:integer;
Begin
SetLength(A,10);
SetLength(B,10);
FillWord(A[0],2*
On 26 May 2011, at 23:18, Luis Fernando Del Aguila Mejía wrote:
> How fill of the same value a dynamic array?
>
> {$codepage utf8}
> Var A,B:array of word;
> i:integer;
> Begin
> SetLength(A,10);
> SetLength(B,10);
>
> FillWord(A[0],2*10,0); //when value diferent to zero, no runtime er
How fill of the same value a dynamic array?
{$codepage utf8}
Var A,B:array of word;
i:integer;
Begin
SetLength(A,10);
SetLength(B,10);
FillWord(A[0],2*10,0); //when value diferent to zero, no runtime error
FillWord(B[0],2*10,0);
for i:=0 to 9 do Writeln(i,A[i]:3,B[i]:3);
End.
