Fehler bei SafeArry Destroy - Wer kann helfen...

[shmia]

Ungetestet:

Delphi-Quellcode:

procedure TMainform.SpeedButton14Click(Sender: TObject); 
var 
  ValOut : OLEVariant; 
  i: integer; 
begin 
  Combobox1.Items.Clear; 
  TargetCommando(2233,EmptyParam,ValOut);    // IDM_GETBLOCKFMTS 

  // Die einzelnen Strings auslesen 
  for i := VarArrayLowBound(ValOut,1) to VarArrayHighBound(ValOut,1) do 
  begin 
     Combobox1.Items.Add(ValOut[i]); 
  end;