SAIL - Replace2
Posted: Sat Nov 12, 2016 5:04 pm
W sail'u brakuje funkcji która umożliwiałaby zamianę jakieś wartości w tablicy dwuwymiarowej, dlatego napisałem taką funkcję. Poniżej kod:
Funkcja wymaga podania tablicy, dwóch pozycji i nowej wartości, działa ona podobnie jak wbudowana funkcja Replace.
I przykład użycia:
Za jej pomocą można również dodawać wartości do tablicy, np:
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]]