Es sind nur positive Werte zugelassen.
Soweit so gut sollte es funktionieren, oder?
Delphi-Quellcode:
type
T128bit = record
Value : Array[0..3] of Cardinal;
end;
//1 : V1>V2, -1 : V2>V1, 0 : V2==V1
function Compare(V1,V2 : T128bit) : Integer;
var i : Integer;
begin
result := 0;
for i := 3 downto 0 do
begin
if V1.Value[i] > V2.Value[i] then
begin
result := 1;
break;
end
else
if V2.Value[i] > V1.Value[i] then
begin
result := -1;
break;
end
end;
end;