C++ -> Delphi

[ZuBy]

Всем привет!

не получается правильно портировать код...

unsigned int weird2size( const unsigned char weird[4] )
{
	return	(weird[3]&127) + 
		128*(weird[2]&127) + 
	128*128*(weird[1]&127) + 
128*128*128*(weird[0]&127);
}

unsigned int weird3size(const unsigned char weird[3])
{
	return weird[2] + 
		256*weird[1] + 
	256*256*weird[0];
}

Как правильно портировать вот эти значения?

0xFFFFFF, 0x334449, 0xD

void byte_swap( wchar_t& x )
{
	x=(x<<8)|(x>>8);
}

Заранее спасибо!

[Somebody]

type
	FourBytes = array [0..3] of Byte;
	ThreeBytes = array [0..2] of Byte;

function weird2size(const weird: FourBytes): Cardinal;
begin
	Result :=	(weird[3] and 127) + 
		128*(weird[2] and 127) + 
	128*128*(weird[1] and 127) + 
128*128*128*(weird[0] and 127);
end;

function weird3size(const weird: ThreeBytes): Cardinal;
begin
	Result := weird[2] + 
		256*weird[1] + 
	256*256*weird[0];
end;

$FFFFFF, $334449, $D

procedure byte_swap(var x: WideChar);
begin
	x := WideChar(Swap(Word(x)));
end;

[ZuBy]

вот еще

unsigned int framesize( const unsigned char size[4] )
{
	return (size[0]<<24)|(size[1]<<16)|(size[2]<<8)|size[3];
}

unsigned int frame2size(const unsigned char size[3])
{
	return (size[0]<<16)|(size[1]<<8)|size[2];
}

[Somebody]

unsigned int → Cardinal
unsigned char → Byte
int f(int x) {...} → function f(x: Integer): Integer; begin ... end;
return x → Result := x; exit;
x << y → x shl y
x | y → x or y

[ZuBy]

Сообщение от Somebody

unsigned int → Cardinal
unsigned char → Byte
int f(int x) {...} → function f(x: Integer): Integer; begin ... end;
return x → Result := x; exit;
x << y → x shl y
x | y → x or y

спасибо! так сам разберусь