Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

GetMaxDimblairgendwas ??

Uploader:MitgliedEternal_Pain
Datum/Zeit:14.09.2007 15:21:51

'' geht bei mir auch mit '-exx'
const mindim=1
const maxdim=8
Function GetMaxDim(a() As Integer) As Integer
    Dim As Byte i=0
    For j As Byte=MinDim To MaxDim
        ?UBound(a, j)
        i-=UBound(a, j)<>0
    Next
    ?
    Return i
End Function

Dim bla(100) as integer

?GetMaxDim (Bla())

sleep