function SetVal(Value: Integer): TMtxVecInt;
Set all calling object elements to Value.
| # | Name | Type | Description |
|---|---|---|---|
| 1 | Value | Integer |
Result: stored in self (calling object), returns self for chaining
Indexed: function SetVal(Value: Integer; Index: Integer; Len: Integer): TMtxVecInt;
Set all calling object elements [Index]..[Index+Len-1] to Value.
| # | Name | Type | Description |
|---|---|---|---|
| 1 | Value | Integer | |
| 2 | Index | Integer | start index |
| 3 | Len | Integer | element count |
Result: stored in self (calling object), returns self for chaining
Remarks:
An exception is raised if array borders are overrun/underrun.
Examples
Uses MtxExprInt;
procedure Example;
var a: VectorInt;
begin
a := [1,2,3,4];
a.SetVal(5,2,2); // a = [1,1,5,5]
end;