Q&A

  • VB 코드 -> Delphi 코드
VB코드
   Dim writeArray() As Byte
   arraySizeInBytes = 8
   '  Re-initialize an array that holds the digital values to be written
   ReDim writeArray(arraySizeInBytes)
   For i = 0 To arraySizeInBytes - 1
       writeArray(i) = bitCheckBox(i)
   Next
  DAQmxErrChk DAQmxWriteDigitalLines(taskHandle, 1, 1, 10#, DAQmx_Val_GroupByChannel, writeArray(0), sampsPerChanWritten, ByVal 0&)

여기서 해결 못한게 writeArray(0)는 PByte 입니다.

델파이에서는 어떻게 쓰나요? 포인터에 약하다보니...

코드변환 부탁드립니다.
1  COMMENTS