fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Variable Parameterliste und Überladung

Uploader:	MOD
Datum/Zeit:	27.03.2011 20:16:47

'Variable Parameterliste und Überladung - funktioniert nicht - getestet mit Version 0.21.1



Declare Function add Cdecl OverLoad (anzahl As Integer, ...) As String

Declare Function add Cdecl (anzahl As String, ...) As String



Function add Cdecl (anzahl As Integer, ...) As String

    Dim As String ergebnis



    Dim As Any Ptr argument = va_first()





    For i As Integer = 1 To anzahl

        ergebnis += *va_arg(argument, ZString Ptr)

        argument = va_next(argument, ZString Ptr)

    Next



    Return ergebnis

End Function



Function add Cdecl (anzahl As String, ...) As String

    Dim As String ergebnis



    Dim As Any Ptr argument = va_first()





    For i As Integer = 1 To ValInt(anzahl)

        ergebnis += *va_arg(argument, ZString Ptr)

        argument = va_next(argument, ZString Ptr)

    Next



    Return ergebnis

End Function



Print add(2, "Hallo ", "Welt!")

Print add("2", "Hallo ", "Welt!")

Sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.