SAIL - Replace2

Wszelkie pytania na temat SAIL'a i modowania OW.
Post Reply
User avatar
Serpent
Soldier level 10
Soldier level 10
Estonia
Posts: 4175
Joined: Tue Jul 07, 2009 9:13 pm
Location: Polska - EuroStan ZSRE
Contact:

SAIL - Replace2

Post by Serpent »

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]]
Epickie teksty:
Marek1906: jak zrobic aby sail był zielony?
Kvantovy: Wszystko normalne, wszystko w koło było dziwne
Kvantovy:: To jest fajne, że to nie jest takie głupie
Kvantovy:: remove sos from kanapeczka
Kvantovy:: zdarzają się rzezy które sie filozofom nie śniły
Cenwen: problemem jest gejostwo
"Taki z niego fizyk jak ze mnie baletnica" - Profesor Scholtze o Kvantovym.
JAKBYŁ BYM CZECHEM TO BYM ROZŁOŻYŁ NAMIOT ~Kvanciak
Post Reply