Rueckgabewert an Com wirft Umwandlungsfehler

[steppo]

Hallo Leute,

ich wandle über eine Funktion eine Variable in einen anderen Typen um. Dies funktioniert soweit auch, bis eine String zurückgegeben wird. Bei der Konvertierung von variant zu String (Varstring) bekomme ich den Fehler: Ungültige Variantumwandlung.

Nun gut. Habe mittlerweile herausbekommen, dass varstring nicht com kompatibel ist. varStrArg soll es aber sein! Aber auch hier bekomme ich eine Fehlermedung. Warum?

Hier die entsprechende Funktion.

Delphi-Quellcode:

function TFrm_SearchWindow.Get_Type(aType: integer; aWMIndex: string): Variant;
var
  aIndexType: integer;
begin

  // aIndexType := Get_Type_Info(aType, aWMIndex);
  //ShowMessage(inttostr(aType));
  case aType of
   
    1: Result := VarAsType(aWMIndex, varStrArg); //Hier entsteht der Fehler

    2: Result := VarAsType(aWMIndex, varInteger);

    3: Result := VarAsType(aWMIndex, varDouble);

    4: Result := VarAsType(aWMIndex, varBoolean);

    5: Result := VarAsType(aWMIndex, varDate);

    7: Result := VarAsType(aWMIndex, varDate);

  end;
end;