Quellverzeichnis test_strcomp_method.bas Sprache: unbekannt

Columbo aufrufen.bas zum Wurzelverzeichnis wechselnUnknown {[0] [0] [0]}Datei anzeigen

' This file is part of the LibreOffice project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
'

Option Explicit

Function doUnitTest as String
    dim aString as Variant
    aString = "Hello"
    ' STRCOMP
    If ( StrComp( aString, "Hello" ) <> 0 ) Then
        doUnitTest = "FAIL"
    Else
        doUnitTest = "OK"
    End If
End Function

[ Original von:0.109Diese Quellcodebibliothek enthält Beispiele in vielen Programmiersprachen. Man kann per Verzeichnistruktur darin navigieren. Der Code wird farblich markiert angezeigt. ]