Сравнить два массива

[|( () ( T |/| |(]

Код: Выделить всё

Private Function compareArrey(arrey1() As Byte, arrey2() As Byte) As Boolean
Dim p As Long
If UBound(arrey1) <> UBound(arrey2) Then compareArrey = False: Exit Function
For p = 0 To UBound(arrey1)
If arrey1(p) <> arrey2(p) Then compareArrey = False: Exit Function
Next
compareArrey = True
End Function


вопрос: можно ли как нибуть ускорить это дело?, не каких нибуть API для этого?

[tyomitch]

ntdll!RtlCompareMemory

[|( () ( T |/| |(]

А с RtlCompareMemory примерчик есть?, или хотябы как её обявить?

P.S. Это разве стандартная API?

[Antonariy]

Код: Выделить всё

Private Declare Function EqualMemory Lib "ntdll" Alias "RtlCompareMemory" (Destination As Any, Source As Any, ByVal Length As Long) As Long

r = EqualMemory(arr1(0), arr2(0), ubound(arr1) + 1)
IsEqual = r = ubound(arr1) + 1

А бывают нестандартные?

[alibek]

Бывают недокументированные
Но эта -- документирована.

[keks-n]

Про 9х опять забыли

[Antonariy]

Ах, бедная, несчастная 9х! Покойся с миром.

[vvs_adm]

Про 9х опять забыли

А что, бывает такая? А ХР типа поставить дорого? Ну так приезжай к нам, в Россию

[keks-n]

Если 98 - уже реликт, то Me ещё стоит на некотором проценте компов. Это раз. Не все программы(есть древние вещи, без аналогов) работают под NT - это два. И не все компы(знаете ли у некоторых ещё стоит старьё, а новый комп в отличие от винды за 30 рублей не купишь) потянут NT.

[vvs_adm]

Новый комп стоит 214 баксов (самый дешевый, конечно, но ХР потянет со свистом). Это смертельно дорого?