Code: Select all
Export Function Replace2(tab, j, k, value);
var i, tmp;
begin
tmp := Replace(tab[j], k, value);
tab := Replace(tab, j, tmp);
result := tab;
End;
I przykład użycia:
Code: Select all
Every 0$01 do
var i;
begin
i := [[9, 3], [4, 5]];
i := Replace2(i, 2, 1, 7); // na pozycji [2,1] znajduje się wartość 4, zostaje ona zastąpiona przez wartość 7.
display_strings := i;
end;
Code: Select all
i := Replace2(i, 2, 3, 9); // zwróci [[9,3], [4,5,9]]