Change readFromFile value through user input on a form

[SleepingGiant]

I'm trying to create an image viewer that will display thumbnails that can change when called for by user input on a form. I have an edit field on the form called ID# for input from the user to key in a 6 digit number which corresponds to a named .jpg file in the alias IMAGE directory, (EG: 602001 = 602001.jpg, 602002 = 602002.jpg). If the image file called for is not there, it will display a static image showing Image Not Available. I'm having trouble with the ~(tilde) function creating a call for the named image file desired. If I hard code the correct 6 digit name with the file extension after, it works. If I alter it to a file name that does not exist, the static image displays correctly. I'm using Paradox v 10.0.0.719 and here is the code I have:

method pushButton(var eventInfo Event)
var
prodImg,INAImg Graphic
ID String
endVar
ID=ID#

if prodImg.readFromFile(":IMAGE:~ID.jpg&quot then
ImgArea = prodImg
else
INAImg.readFromFile(":IMAGE:INA.bmp&quot
ImgArea = INAImg
endIf
endMethod

Any assistance would be greatly appreciated. TIA

Walt

 

[Langley]

Try this. The tilde variables are only used for querys.

method pushButton(var eventInfo Event)
var 
  prodImg,INAImg Graphic
  ID String 
endVar  
 ID=ID#

if prodImg.readFromFile(":IMAGE:"+ID+".jpg") then
  ImgArea = prodImg
else
  INAImg.readFromFile(":IMAGE:INA.bmp")
  ImgArea = INAImg
endIf
endMethod

Mac

"There are only 10 kinds of people in this world... those who understand binary and those who don't"

langley_mckelvy@cd4.co.harris.tx.us

 

[Langley]

if ID# holds a numeric or integer value (not a string) you will have to cast it as a string:

prodImg.readFromFile(":IMAGE:"+string(ID)+".jpg&quot



Mac

"There are only 10 kinds of people in this world... those who understand binary and those who don't"

langley_mckelvy@cd4.co.harris.tx.us

 

[SleepingGiant]

Thanks Langley!

ID# does not contain a string. The six digit number is only an ID number to identify a specific item. My image files of each item are named by the id number. So using the (":IMAGE:"+ID+".jpg&quot makes it work exactly the way I need it to. I appreciate your assistance. Thanks again.

Walt