InvalidCastException

[Dataverde]

Hey guys,

My compiled app complains:
On device: InvalidCastException

On PC:

It is running when not compiled.

the Code:

Sub put_to_file
   For i = 1 To 4
      If Control("F3TB" & i& "G").visible = True Then
      FileWrite(c1,Control("F3TL" & i).text&"; "&Control("F3TB" & i & "M").text)
      End If  
   Next
End Sub

Can anyone help, please?

Greetings,
Lennart

 

[Erel]

Can you upload your code (or a subset of it) that demonstrates this error?

 

[Dataverde]

here you go.
this won´t even work without compiling.

hope that helps

 

[Erel]

You didn't open the file.
I've added this line:

Sub App_Start
    Form3.Show
    FileOpen(c1, "1.txt",cWrite)
End Sub

And it appears to work fine.

 

[Dataverde]

damn missed the file open in the error example application.

it works fine on my system when not compiled but that code compiled gives me an error like the one in the first post

 

[Erel]

Which version of Basic4ppc are you using?
Are you compiling with the optimized compiler?
Does it also happen on the desktop (when compiled for the desktop)?

 

[Dataverde]

V.6.80
it happens when compiled for Windows and when comiled for Device.
booth device and desktop versions dont work
i use optimized compiling

 

[Erel]

Please download the attached file, unzip it and copy CEnhancedLabel.cs to the Tzor folder which is usually located under:
C:\Program Files\Anywhere Software\Basic4ppc Desktop\Tzor

See if it fixes this problem.

 

[Dataverde]

That did it! Thank you!

:sign0060: