以下程式是可行的DEMO程式
但我在網路上找不到解說
又因為是初學 所以都不知道他的意思
請問 我要去哪上網找一堆函數的用法
請原諒我笨 又懶(其實我已經GOOGLE 3天了)
例如~
Dev := TJvHidDevice(DevListBox.Items.Objects[I]);
TJvHidDevice這函數 我都搜尋不到 不知道怎用

HidCtl.CheckIn(Dev);
這又是啥意思?

DevListBox.Items.Objects[I] := nil;
nil是0的意思嗎?這行又是啥意思?

[code delphi]
請在此區域輸入程式碼
procedure TUsagesForm.HidCtlDeviceChange(Sender: TObject);
var
Dev: TJvHidDevice;
I: Integer;
begin
// hand back all the devices assigned to the list entries
for I := 0 to DevListBox.Items.Count - 1 do
begin
Dev := TJvHidDevice(DevListBox.Items.Objects[I]);
HidCtl.CheckIn(Dev);
DevListBox.Items.Objects[I] := nil;
end;
DevListBox.Items.Clear;
HidCtl.Enumerate;
end;
function TUsagesForm.HidCtlEnumerate(HidDev: TJvHidDevice;
const Idx: Integer): Boolean;
var
Dev: TJvHidDevice;
N: Integer;
begin
// add a descriptive entry to the listbox for the device
if HidDev.ProductName <> '' then
N := DevListBox.Items.Add(HidDev.ProductName)
else
N := DevListBox.Items.Add(Format('Device VID=%x PID=%x',
[HidDev.Attributes.VendorID, HidDev.Attributes.ProductID]));
// check out the device and assign it to the list entry
HidCtl.CheckOutByIndex(Dev, Idx);
DevListBox.Items.Objects[N] := Dev;
Result := True;
end;

[/code]

你所提及的控件（HIDKomponente）在这有：
http://delphi.ktop.com.tw/board.php?cid=30&fid=73&tid=84473

自己去看源码


nil的意思 是空指针