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