VariantHelper_Include.pb und Version 4.20
Verfasst: 11.03.2009 20:55
Hallole,
bei einem Programm habe ich den "VariantHelper_Include.pb" verwendet. Nun will ich eine kleine Änderung vornehmen, aber dann kommt immer eine Fehlermeldung in der VariantHelper_Include: bei der Stelle: ProcedureReturn = 0.
Wenn ich das ganze mit PureBasic 4.02 mache klappt es gut. Mit Version 4.2 habe ich eben diesen Fehler. Was muss ich machen wenn ich das weiterhin mit Version 4.2 verwenden will? Ich weiss, es gibt inzwischen einen Ersatz für den "VariantHelper" aber er hat mir eigendlich gereicht für meine Zwecke.
Wenn es eben nicht gehen sollte kann ich ja diese Art von Anwendungen weiterhin mit Version 4.02 machen, aber vielleicht besteht auch die Möglichkeit das auch mit der Version 4.2 zu machen - will ja nicht immer wieder auf die alte Version 4.02 zurückgreifen müssen.
bei einem Programm habe ich den "VariantHelper_Include.pb" verwendet. Nun will ich eine kleine Änderung vornehmen, aber dann kommt immer eine Fehlermeldung in der VariantHelper_Include: bei der Stelle: ProcedureReturn = 0.
Wenn ich das ganze mit PureBasic 4.02 mache klappt es gut. Mit Version 4.2 habe ich eben diesen Fehler. Was muss ich machen wenn ich das weiterhin mit Version 4.2 verwenden will? Ich weiss, es gibt inzwischen einen Ersatz für den "VariantHelper" aber er hat mir eigendlich gereicht für meine Zwecke.
Wenn es eben nicht gehen sollte kann ich ja diese Art von Anwendungen weiterhin mit Version 4.02 machen, aber vielleicht besteht auch die Möglichkeit das auch mit der Version 4.2 zu machen - will ja nicht immer wieder auf die alte Version 4.02 zurückgreifen müssen.
Code: Alles auswählen
***************************************************************************************
Procedure.l saLBound(*psa.safearray) ; Result first number of Array
Shared saLastError
Protected hr, result
hr = SafeArrayGetLBound_(*psa, 1, @result)
If hr = #S_OK
ProcedureReturn result
Else
saLastError = hr
ProcedureReturn = 0
EndIf
EndProcedure
; ***************************************************************************************