C语言如何转为delphi,在线等....(100分)

USHORT Format1[] = {24, 240, _OSD_YEAR2, '-',_OSD_MONTH2,'-',_OSD_DAY,'-', _OSD_HOUR24, ':', _OSD_MINUTE,':', _OSD_SECOND, '/0'};
C语言如何转为delphi.

var
Format1: array[0..13] of Word;
begin
Format1[0] := 24;
Format1[1] := 240;
Format1[2] := _OSD_YEAR2;
Format1[3] := ord('-');
Format1[4] := _OSD_MONTH2;
Format1[5] := ord('-');
Format1[6] := _OSD_DAY;
Format2[7] := ord('-');
Format1[8] := _OSD_HOUR24;
Format1[9] := ord(':');
Format1[10] := _OSD_MINUTE;
Format1[11] := ord(':');
Format1[12] := _OSD_SECOND;
Format1[13] := 0;
end;

统一成一种类型这是统一成Word类型的,你也可以统一成字节
或者干脆用variant算了

请问高手此句如何译:
USHORT Format2[] = { 0, 0, 0x20, 0};

var
Format2: array[0..3] of Word;
begin
Format2[0] := 0;
Format2[1] := 0;
Format2[2] := $20;
Format2[3] := 0;
end;

谢谢您,还有一个问题:
在delphi中如何表述,C语言中的 bit 16.

bit 16
写具体点
c中没有这种语法

我在C的dll文件中,有一个函数的参数param为整形,有以下内容:
Bit 0 是否自动进行颜色翻转
Bit 16-23 垂直放大倍数
Bit 24-31 水平放大倍数

function SetOsdDisplayMode(hChannelHandle:integer;Brightness:integer;Translucent:bool;param:integer;Format1,format2word):integer;stdcall;

var
Format1: array[0..13] of word;
format2:array[0..2] of word;
formatnodisplay:array[0..2] of integer;
_OSD_YEAR2,_OSD_MONTH2,_OSD_DAY, _OSD_HOUR24, _OSD_MINUTE, _OSD_SECOND:word;
begin
Format1[0] := 160;
Format1[1] := 240;
Format1[2] := _OSD_YEAR2;
Format1[3] := ord('-');
Format1[4] := _OSD_MONTH2;
Format1[5] := ord('-');
Format1[6] := _OSD_DAY;
Format1[7] := ord('-');
Format1[8] := _OSD_HOUR24;
Format1[9] := ord(':');
Format1[10] := _OSD_MINUTE;
Format1[11] := ord(':');
Format1[12] := _OSD_SECOND;
Format1[13]:= ord(#0);
Format2[0]:=0;
format2[1]:=0;
format2[2]:=ord(#0);
formatnodisplay[0]:=0;
formatnodisplay[1]:=0;
formatnodisplay[2]:=0;
// SetOsd(chanl,true);//设置OSD显示与否

SetOsdDisplayMode(chanl,255,True,1,@format1,@format2) ;

param整型应该有4个字节组成.
也就是说有4*8=32位,就是第0位至第31位共32位
Bit 0 表示第0位表示是否进行颜色翻转
Bit 16-23表示第16位至23存放垂直放大倍数的值
Bit 24-31表示第24位至31位存放水平放大倍数


记得给分!!!

怎么写delphi?
现在我还不能显示LOGO出来.

谢谢sun_8113.