SAIL - Compare

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

SAIL - Compare

Post por Serpent »

Poniżej zamieszczam dwie nowe funkcje.

Compare - porównuje dwie wartości.

Code: Select all

Export Function Compare(val1, val2);
begin
if val1 = val2 then
   result := true
    else
     result := false;
End;
Funkcja ta umożliwia porównanie na przykład dwóch elementów tablic gdyż normalny zapis: tablica[1] = tabliczka[2] jest niedozwolony.

CompareArray - porównuje dwie tablice pod kątem wielkości i zawartości.

Code: Select all

Export Function CompareArray(array1, array2);
var i;
begin
result := true;

     if array1 = array2 then
        begin
        for i = 1 to array1 do
            if not Compare(array1[i], array2[i]) then
               begin
               result := false;
               break;
               end;
        end
         else
          result := false;
End;
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
Responder