function IE_Imp_PalmDoc._swap_DWord(r :DWord) :DWord;
begin
if Boolean(m_littlendian) then //由于你给的信息不全,这里没有提供//m_littlendian的类型我只能这样写
begin
result :=((r shr 24) and $0x00FF) or (r shl 24) or ((r shr 8) and $0xFF00) or
((r shl 8) and $0xFF00000);
end
else
result :=r;
end;