Thema
:
for ..in auf Interface
Einzelnen Beitrag anzeigen
jaenicke
Registriert seit: 10. Jun 2003
Ort: Berlin
9.648 Beiträge
Delphi 11 Alexandria
#
2
AW: for ..in auf Interface
1. Okt 2013, 14:46
Vielleicht so?
zusammenfalten
·
markieren
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/
Sebastian Jänicke
AppCentral
Zitat
jaenicke
Öffentliches Profil ansehen
Mehr Beiträge von jaenicke finden