Source position: uPSRuntime.pas line 1099
procedure SetPSArrayLength(
Arr: PIFVariant;
NewLength: LongInt
);