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;
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;