Сравнить 2 четырехбайтовых значения

← →
Scot Storch (2010-02-05 11:44) [0]

Доброго времени суток. Столкнулся с проблемой: имеется 2 четырехбайтовых значения, которые хранятся в переменных типа Cardinal. Как определить количество последовательно совпадающих байт этих значений?

т.е.

$10203040
$10203050

= Совпадает 3 байта

← →
Сергей М. © (2010-02-05 11:48) [1]

Трактовать оба значения как массивы по четыре байта каждый и в цикле сравнивать эл-ты массивов с соотв.подсчетом и условием выхода из цикла

← →
Scot Storch (2010-02-05 12:14) [2]

Разобрался. Спасибо.

← →
Вася (2010-02-05 12:22) [3]

может как-то так?

type fb=array[0..3] of byte; pfb=^fb; const a: Cardinal=$10203040; b: Cardinal=$10203050; ... procedure TForm1.Button1Click(Sender: TObject); var i, count: byte; pa, pb: pfb; begin pa:=@a; pb:=@b; count:=0; for i:=0 to 3 do if (pa[i]=pb[i]) then inc(count); ShowMessage(inttostr(count)); end;

← →
Sha © (2010-02-05 13:30) [4]

> Scot Storch (05.02.10 11:44)
> ...последовательно совпадающих байт этих значений?
> т.е.
> $10203040
> $10203050
> = Совпадает 3 байта

а для
$10203040
$10209040
результатом должно быть 2 или 3?

> Вася (05.02.10 12:22) [3]

Если на предыущий вопрос ответом является 2,
то твое решение придется подправить, т.к. оно сравнивает все байты
двойного слова, начиная с low-конца. а автору надо с hi-конца.

← →
Sha © (2010-02-05 13:33) [5]

Пропустил пару слов:
... а автору надо сравнивать не все и с hi-конца.

← →
Вася (2010-02-05 14:04) [6]

а, чёрт...
"последовательно совпадающих"...=((

if (pa[i]=pb[i]) then inc(count) else break;

не очень знаю что есть low/hi, но вроде же работает...

Вася (05.02.10 12:22) [3]
> может как-то так?
будь проще ;). нафиг цикл?

procedure TForm1.Button1Click(Sender: TObject); type Tb = array[0..3] of byte; const a: Cardinal = $10203040; b: Cardinal = $10203050; var Count: integer; begin Count:= byte(Tb(a)[0] = Tb(b)[0]) + byte(Tb(a)[1] = Tb(b)[1]) + byte(Tb(a)[2] = Tb(b)[2]) + byte(Tb(a)[3] = Tb(b)[3]); ShowMessage(IntToStr(Count)); end;

а кстати и Count тоже лишний...

Сравнить 2 четырехбайтовых значения Найти похожие ветки