Program hangs, caused by strttoupper

[token]

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

 

[Erel]

        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 + 8, 2)
                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.

 

[token]

        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 + 8, 2)
                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.

Many thanks, Erel.