pascalabcnet/TestSuite/setlength1.pas

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.