10 lines
110 B
ObjectPascal
10 lines
110 B
ObjectPascal
|
type
|
||
|
|
TByteArray = array of byte;
|
||
|
|
var
|
||
|
|
A: TByteArray;
|
||
|
|
begin
|
||
|
|
setLength(A,1000);
|
||
|
|
...
|
||
|
|
setLength(A,0);
|
||
|
|
end;
|