original-war.net

Serpent wrote: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:

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;

Funkcja wymaga podania tablicy, dwóch pozycji i nowej wartości, działa ona podobnie jak wbudowana funkcja Replace.

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;

Za jej pomocą można również dodawać wartości do tablicy, np:

Code: Select all

i := Replace2(i, 2, 3, 9); // zwróci [[9,3], [4,5,9]]