今天是我使用 Delphi 的第一天。
我有这样的记录:
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库,返回的状态是OK。
ID
字段。 - David HeffernanForm1.ComboBox1.Items.Add(FT_DeviceInfoList[i].ID);
替换Form1.ComboBox1.Items.Add(FT_DeviceInfoList[i].Description);
。 - bLAZ