如何处理"无效的类别字符串"? 谢谢指正！

Question

如何处理"无效的类别字符串"? 谢谢指正！ function TfrmLg.GetData(): OleVariant;
var
  aRet: OleVariant;
  OutaRet: OleVariant;
begin
  if Dcomcon.Connected = False then
    Dcomcon.Connected := True;
 
  aRet := VarArrayCreate([0, 0], varVariant);//运行到此处出现错误信息“无效的类别字符串”  aRet[0]:=CdsGetrights.CommandText;
  SetRemotedata := TGetRemoteData.create(Dcomcon);
  SetRemotedata.GetSetDateType :=1;
  SetRemotedata.GetSetDateString :='GetData';
  SetRemotedata.AOleVariant :=aRet;
  SetRemotedata.Run;
  if SetRemotedata.Sucessed <> 1 then
  begin
    LgoinBoll :=False;
    MsgOk(SetRemotedata.Errorstring,'提示信息');
  end
  else
    LgoinBoll :=True;
  Result:= SetRemotedata.OutAOleVariant;
  Dcomcon.Connected := False;
end;

Answer 1

我也发现很多人遇到“无效的类别字符串”，就没有一个完整的解决办法。