Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Сравнить 2 четырехбайтовых значения

Автор: JS2 5.2.2010, 11:45

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

т.е.

$10203040
$10203050

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

Автор: Mikel 5.2.2010, 12:07

Код


type LWBytes=array[1..4]of Byte;
var v1,v2:LongWord;
    i,c:integer;
begin

v1:=$10203040;
v2:=$10203050;
c:=0;
for i:=1 to 4 do
  if LWBytes(v1)[i]=LWBytes(v2)[i]
     then inc(c);
ShowMessage(IntToStr(c));
end;

Автор: JS2 5.2.2010, 12:10

Спасибо.