如何用Delphi写下段代码

Question

Dim lngEnrollNumber, lngMachineNumber As Long
Dim lngEMachineNumber, lngBackupNumber As Long
Dim lngMP(0), lngPSW(0) As Long
Dim lngEnrollData(459) As String
Dim strTmp As String
Dim i As LonglngMachineNumber = 1
lngEnrollNumber = 12345678
lngEMachineNumber = 1
lngBackupNumber = 0
If ZKKEEPER1.GetEnrollData(lngMachineNumber, _
                           lngEnrollNumber, _
           lngEMachineNumber, _
                           lngBackupNumber, _
                           lngMP(0), _
                           lngEnrollData(0), _
                           lngPSW(0)) = True Then
   Debug.Print “MachinePrivilege = “ & CStr(lngMP(0))
   strTmp = vbNullString
   For i = 0 to 127
    strTmp = strTmp + Cstr(lngEnrollData(i))
            Next i
   Debug.Print “EnrollData = “ & strTmp
   Debug.Print “PassWord = “ & CStr(lngPSW(0))
Wend

Answer 1

var
  lngEnrollNumber, lngMachineNumber: integer;
  lngEMachineNumber, lngBackupNumber: integer;
  lngMP, lngPSW: integer;
  lngEnrollData: array[0..459] of string; //此句看是否需要修改類型
  strTmp: string
  i: integer;
begin
  lngMachineNumber := 1;
    lngEnrollNumber := 12345678;
    lngEMachineNumber := 1;
    lngBackupNumber := 0;
    if ZKKEEPER1.GetEnrollData(lngMachineNumber, lngEnrollNumber,
      lngEMachineNumber, lngBackupNumber, _
    lngMP, lngEnrollData, lngPSW) then
  begin
    //   Debug.Print “MachinePrivilege = “ & CStr(lngMP(0))
    ShowMessage('MachinePrivilege = ' + IntToStr(lngMP);
      strTmp := '';
      for i := 0 to 127 do
        strTmp := strTmp + lngEnrollData(i);      //    Debug.Print “EnrollData = “ & strTmp
      showMessage('EnrollData = ' + strTmp);
      //    Debug.Print “PassWord = “ & CStr(lngPSW(0))
      showMessage('PassWord = ' + IntToStr(lngPSW)
  end;
end;

Answer 2

lngEnrollData: array[0..459] of string; //此句看是否需要修改類型
//是要把string改成integer
ZKKEEPER1.GetEnrollData(lngMachineNumber, lngEnrollNumber,lngEMachineNumber,ngBackupNumber,lngMP, lngEnrollData, lngPSW)
其中lngEnrollData为integer类型。

Answer 3

2楼中    if ZKKEEPER1.GetEnrollData(lngMachineNumber, lngEnrollNumber,
      lngEMachineNumber, lngBackupNumber, _    //不要最后的_
    lngMP, lngEnrollData, lngPSW) then