SAIL - Replace2

Gotowe kody SAIL'a, informacje na temat moddingu, itd.

Moderator: zoNE

Post Reply
User avatar
zoNE
The Great Uniter & Site Administrator
The Great Uniter & Site Administrator
Posts: 2059
Joined: Fri Feb 17, 2006 3:44 pm
Location: Poland
Contact:

SAIL - Replace2

Post by zoNE »

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]]
Author: Serpent
Topic: https://forum.original-war.net/viewtopi ... =42&t=4790
Post Reply