C#代码转为DELPHI代码

请高手帮忙翻译下！谢谢！


public void SetSSRUserInfoToDat(out byte[] DataBuf, int PIN, int Privilege, string Password,
string Name, int Card, int Group, string TimeZones, string PIN2)
{
DataBuf = new byte[72];
byte[] PasswordBuf = new byte[8];
byte[] NameBuf = new byte[24];
byte[] CardBuf = new byte[4];
byte[] TimeZonesBuf = new byte[8];
byte[] PIN2Buf = new byte[24];

SSR_User ssruser = new SSR_User();

ssruser.PIN = (ushort)PIN;
ssruser.Privilege = (byte)Privilege;

PasswordBuf = System.Text.Encoding.Default.GetBytes(Password);
Array.Copy(PasswordBuf, ssruser.Password, 8);

NameBuf = System.Text.Encoding.Default.GetBytes(Name);
Array.Copy(NameBuf, ssruser.Name, 24);

CardBuf = BitConverter.GetBytes(Card);
Array.Copy(CardBuf, ssruser.Card, 4);

ssruser.Group = (byte)Group;

TimeZonesBuf = System.Text.Encoding.Default.GetBytes(TimeZones);
ssruser.TimeZones[0] = (ushort)TimeZonesBuf[0];//whether to use timezones or not (0 stands for yes,1 stands for defining by yourself)
ssruser.TimeZones[1] = (ushort)TimeZonesBuf[1];//(if you use the timezones)timezoune1
ssruser.TimeZones[2] = (ushort)TimeZonesBuf[2];//timezone2
ssruser.TimeZones[3] = (ushort)TimeZonesBuf[3];//timezone3

PIN2Buf = System.Text.Encoding.Default.GetBytes(PIN2);
Array.Copy(PIN2Buf, ssruser.PIN2, 24);

Array.Copy(Raw.RawSerialize(ssruser), DataBuf,72);
}