14 lines
222 B
ObjectPascal
14 lines
222 B
ObjectPascal
type TRec = record
|
|
s : string;
|
|
end;
|
|
|
|
var arr : array of TRec;
|
|
|
|
begin
|
|
SetLength(arr,Length(arr)+1);
|
|
assert(Length(arr)=1);
|
|
assert(arr[0].s='');
|
|
arr[0].s := 'abc';
|
|
SetLength(arr,Length(arr)+1);
|
|
assert(arr[0].s='abc');
|
|
end. |