for ..in auf Interface

[jaenicke]

Vielleicht so?

Delphi-Quellcode:

procedure TForm1.pshInitClick(Sender: TObject);
var
  oUsb: Ttcusbserials;
  oUsbEnum: IEnumVariant; 
  n: OLEVariant;
  nSer: Integer;
  iValue: LongWord;
begin
  oUsb := Ttcusbserials.Create(Self);
  oUsb.AutoConnect := True;
  oUsb.Init('testo435-635-735');
  oUsbEnum := IUnknown(oUsb._NewEnum) as IEnumVariant;
  while oUsbEnum.Next(1, n, iValue) = S_OK do
  begin
          
  end;
end;

Mehr dazu:
http://theroadtodelphi.wordpress.com...ariant-arrays/

[hsg]

Tausend Dank! Funktioniert.