jj: Fix StrToBool function

This commit is contained in:
Jonathan Jenne 2018-05-23 13:45:41 +02:00
parent fb86a33f11
commit 5783b815d6

View File

@ -17,12 +17,10 @@
''' Versucht einen String in einen Boolean zu konvertieren
''' </summary>
''' <param name="str">Der zu konvertierende String</param>
''' <returns>Den umgewandelten Wert oder Falsche</returns>
Public Function StrToBool(str As Object) As Boolean
''' <returns>Den umgewandelten Wert oder False</returns>
Public Function StrToBool(str As String) As Boolean
Dim result As Boolean = False
str = TryCast(str, String)
Try
result = Convert.ToBoolean(str)
Catch ex As Exception