jj: Fix StrToBool function
This commit is contained in:
@@ -17,12 +17,10 @@
|
|||||||
''' Versucht einen String in einen Boolean zu konvertieren
|
''' Versucht einen String in einen Boolean zu konvertieren
|
||||||
''' </summary>
|
''' </summary>
|
||||||
''' <param name="str">Der zu konvertierende String</param>
|
''' <param name="str">Der zu konvertierende String</param>
|
||||||
''' <returns>Den umgewandelten Wert oder Falsche</returns>
|
''' <returns>Den umgewandelten Wert oder False</returns>
|
||||||
Public Function StrToBool(str As Object) As Boolean
|
Public Function StrToBool(str As String) As Boolean
|
||||||
Dim result As Boolean = False
|
Dim result As Boolean = False
|
||||||
|
|
||||||
str = TryCast(str, String)
|
|
||||||
|
|
||||||
Try
|
Try
|
||||||
result = Convert.ToBoolean(str)
|
result = Convert.ToBoolean(str)
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
|
|||||||
Reference in New Issue
Block a user