Program hangs, caused by strttoupper

Discussion in 'Questions (Windows Mobile)' started by token, Aug 13, 2008.

  1. token

    token Member Licensed User

    Hello,

    as soon as I uncomment the line "'r = StrToUpper(r)" in the attached program, it hangs when I try to execute it in the desktop-ide. Don't know why.

    Perhaps someone can help me.

    Thanks in advance!

    Kind regards:

    Token
     
    Last edited: Aug 13, 2008
  2. Erel

    Erel Administrator Staff Member Licensed User

    Code:
    Do Until r = EOF
                sum = sum + 
    1
                r = FileRead (c1)
                
    'r = StrToUpper(r)
                ChanPos = StrIndexOf  (r , "Chan := ",0)
                
    If ChanPos > 0 Then
                    ChanText = SubString (r,ChanPos + 
    82)
                    textbox1.Text=SubString(RemoveSpaces(r),
    0,11)
                    
    If SubString(RemoveSpaces(r),0,11) = "My_RetValue" Then
                        r = FileRead(c1)
                        Table1.AddRow (ChanText,r)
                    
    End If                    
                
    End If
            
    Loop
    EOF is a string mark. If you change 'r' with StrToUpper, r will never be equal to EOF.
     
  3. token

    token Member Licensed User

    Many thanks, Erel.
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice