Сравнение динамических масивов

[DarkEvil]

Что-то у меня пропало логическое мышления ...
уже и в отладчику раз 100 прогнал но даже при визуальном подтверждении что оба массива равны SKey = Key
все равно говорит что не равно...

procedure bSearch_v2(SearchKey : Pointer; Len, Pos : Longint; CallBack : bCallback);
var
  Buffer, Key, SKey : array of Char;
  search_ok : Boolean;
begin
  if @Callback = nil then Exit;
  search_ok := false;
  SetFilePointer(bHandle, 0, nil, FILE_BEGIN);
  SetLength(Buffer, bBlockSize);
  SetLength(Key, Len); // Выделяем память под ключ
  SetLength(SKey, Len); // Выделяем память под искомый элемент
  CopyMemory(SKey, IncPtr(SearchKey), Len); // Заполняем массив искомого ключа с указателя
  repeat
    bReadFileEx(Buffer[0]); // Читаем в буфер
    Key := copy(Buffer, Pos, Len); // Берем ключ
    if SKey = Key then // Сравниваем
    begin
      MessageBox(0, 'Равно', 'Проверка', 0);
      search_ok := true;
    end;
  until search_ok;
end;

[Скандербег]

Сравнение указателей на разные массивы (SKey и Key - указатели) всегда возвращает False. Нужно сравнивать элементы массивов.

[Stilet]

Автор, CompareMem тебе в помошь. Посмотри примеры в хелпе.