FormatCombo.Items.Clear;
TVariantArg(ValOUT).VT := VT_BYREF
or VT_SAFEARRAY;
TVariantArg(ValOUT).ppArray :=
nil;
TargetCommando(2233,EmptyParam,ValOut);
// 2233
TVariantArg(ValOUT).VT := VT_BYREF
or VT_SAFEARRAY;
// EINFACH NOCHMAL SETZEN!
Val := PSafeArray(TVariantArg(ValOUT).ppArray);
// Die Anzahl der Elemente im Array bestimmen
ActiveX.SafeArrayGetLBound(Val, 1, iMin);
ActiveX.SafeArrayGetUBound(Val, 1, iMax);
// Die einzelnen Strings auslesen
for i := iMin
to iMax-1
do
begin
try
ActiveX.SafeArrayGetElement(Val, i, sBuffer);
FormatCombo.Items.Add(SBuffer);
except
// Caption := 'Fehler';
end;
end;
ActiveX.SafeArrayDestroyData(Val);
ActiveX.SafeArrayDestroy(Val);