Avatar billede ha9953 Nybegynder
10. juni 2004 - 16:07 Der er 2 kommentarer og
1 løsning

option strict on disallows late binding

Jeg har lvaet følgende kombonet, men når jeg compiler den, får jeg en fejlmeddelelse der siger:

"option strict on disallows late binding: enkeltord = ord(antal)"

Nogen der kan hjælpe?

Option Explicit
Option Strict

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Microsoft.VisualBasic
Imports System.IO
Imports System.Configuration
Imports System.Text.RegularExpressions

Namespace grundvalidering

    Public Class val
        Dim Meddel as new Grundstamme.Meddel()

        Public Function ordlength(satning as string,max as integer) as boolean
            dim ord as array = Split(satning)
            dim antal as integer
            Dim enkeltord as string
            for antal=0 to ord.length - 1
                enkeltord = ord(antal)
                if len(enkeltord) > max then
                    return false
                    exit function
                end if               
            next
            return true
        end function
    End Class

end namespace
Avatar billede guidmaster Nybegynder
10. juni 2004 - 16:10 #1
Du skal lige caste ord til en streng
Namespace grundvalidering

    Public Class val
        Dim Meddel as new Grundstamme.Meddel()

        Public Function ordlength(satning as string,max as integer) as boolean
            dim ord as array = Split(satning)
            dim antal as integer
            Dim enkeltord as string
            for antal=0 to ord.length - 1
                enkeltord = Ctype(ord(antal),String)
                if len(enkeltord) > max then
                    return false
                    exit function
                end if               
            next
            return true
        end function
    End Class

end namespace
Avatar billede ha9953 Nybegynder
10. juni 2004 - 16:13 #2
tak for forslaget - men den kommer stadig med den samme fejl :-(
Avatar billede ha9953 Nybegynder
10. juni 2004 - 16:28 #3
fandt selv løsningen:

        Public Function ordlength(satning as string,max as integer) as boolean
            dim ord() as string = Split(satning)
            dim antal as integer
            Dim enkeltord as string
            for antal=0 to ord.length - 1
                enkeltord = ord(antal)
                if len(enkeltord) > max then
                    return false
                    exit function
                end if               
            next
            return true
        end function
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester