3

今天是我与德尔福的第一天。

我有这样的记录：

type 
  FT_Device_Info_Node = record
    Flags         : DWord;
    DeviceType    : Dword;
    ID            : DWord;
    LocID         : DWord;
    SerialNumber  : array [0..15] of Char;
    Description   : array [0..63] of Char;
    DeviceHandle  : DWord;
  end;

后来我只能读取数组，例如它可以工作：FT_DeviceInfoList[0].SerialNumber 但是我无法访问任何 DWord 项目，例如FT_DeviceInfoList[0].ID是不可能的。

你能为我澄清一下吗？

编辑：这是我想从记录中获取信息的按钮单击过程：

procedure TForm1.checkFTDIClick(Sender: TObject);
var
  i : integer;
begin
  ftStatus := FT_CreateDeviceInfoList(@dwNumDevs);
  SetLength(FT_DeviceInfoList,dwNumDevs);
  ftStatus :=  FT_GetDeviceInfoList(FT_DeviceInfoList, @dwNumDevs);
  If ftStatus <> FT_OK then ShowMessage('Error '+IntToStr(ftStatus));

  Form1.ComboBox1.Items.Clear;
  for i:=0 to dwNumDevs-1 do
  begin
    Form1.ComboBox1.Items.Add(FT_DeviceInfoList[i].Description);//works
    //Form1.ComboBox1.Items.Add(FT_DeviceInfoList[i].ID);//compilation error
  end;
  Form1.ComboBox1.ItemIndex := 0;

end;

FT 东西来自 FTDI 库，返回状态正常。

4

1 回答 1

2

您的预期代码是：

Form1.ComboBox1.Items.Add(FT_DeviceInfoList[i].ID);

这会导致编译错误。那是因为Add需要一个 type 的参数string。但是您传递的是DWORD一个整数参数。

通过调用将其从整数数据类型转换为字符串IntToStr：

Form1.ComboBox1.Items.Add(IntToStr(FT_DeviceInfoList[i].ID));
于 2012-11-08T09:42:08.587 回答