Author: SerpentSerpent 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:
Funkcja wymaga podania tablicy, dwóch pozycji i nowej wartości, działa ona podobnie jak wbudowana funkcja Replace.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:Za jej pomocą można również dodawać wartości do tablicy, np: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]]
Topic: https://forum.original-war.net/viewtopi ... =42&t=4790