conditional pointer?

[MikeC]

Hi,

I'm trying to consolidate some script and am wondering if there is a
way to have a conditional pointer (brwse) as in the following example?

The purpose is so that instead of having the same long script after each "if sheet=? " I could simply use the brwse pointer and place the script ONCE after the following script. I have tried this and the script stops when it gets to the line brwse=topparent:browse1

dim t as p
dim brwse as p

t=table.current()

sheet=topparent:tabbed1.tab_get()

if sheet=1 then
   brwse=topparent:browse1
elseif sheet=2 then
   brwse=topparent:browse2
elseif sheet=3 then
   brwse=topparent:browse3
end if

Mike

[Tom Cone Jr]

Re: conditional pointer?

Mike, yes, the use of the IF...ELSEIF...ELSEIF...END IF code block should not be a problem. I suspect the difficulty you're having is with the way you're trying to get the pointer to the browse objects on your form. Check the help file discussion of <object>.child().

Once the pointer is assigned you should not change it within the same script.

-- tom

[MikeC]

Re: conditional pointer?

Hi Tom,

Thanks for the direction...just what I needed! The following is what I came up with and works for my situation.

dim t as p
dim brwse as p
dim ptr as p

ptr = obj(a_form_current)'used instead of form.load /.view as form is open
t=table.current()

sheet=topparent:tabbed1.tab_get()

if sheet=1 then
   brwse=ptr.child("browse1")
elseif sheet=2 then
   brwse=ptr.child("browse2")
elseif sheet=3 then
   brwse=ptr.child("browse3")
end if

I then added the "to do" script in which the brwse pointer is used. All of this was wanted due to a tabbed form in which the same browse was used but simply sorted in a different way.


Mike

[Tom Cone Jr]

Re: conditional pointer?

Great! Thanks for the follow up.

[Tim Kiebert]

Re: conditional pointer?

Mike,

or other passers by

Here are a couple more alternatives that basically do the same thing.

select
    case sheet=1 
    brwse=ptr.child("browse1")
    case sheet=2 
    brwse=ptr.child("browse2")
    case sheet=3 
    brwse=ptr.child("browse3")
end Select

select
    case sheet=1 
    brwse=topparent:browse1.this
    case sheet=2 
    brwse=topparent:browse2.this
    case sheet=3 
    brwse=topparent:browse3.this
end Select

brwse=eval("topparent:browse"+remspecial(str(sheet)) +".this")

[MikeC]

Re: conditional pointer?

Thanks Tim! Always nice to know of alternatives....looks like all I would have had to do to my original script would have been to add .this to it. But then would not have learned of the other ways.


Mike

[Tim Kiebert]

Re: conditional pointer?

Yep, when using Alpha 5 the proverbial cat doesn't have much skin left.

Apologies to cat lovers.