On Thursday 21 November 2013 16:55:12 Ivanko B wrote:
> A working example of using RESULT varaiable :
> ------------------
> function monthsstate(aperiodity: msestring): booleanarty;
> begin
> setlength(result,12);
> if system.pos('Ja',aperiodity) > 0 then result[0]:=true else
> result[0]:=false; if system.pos('F',aperiodity) > 0 then result[1]:=true
> else result[1]:=false; if system.pos('Mr',aperiodity) > 0 then
> result[2]:=true else result[2]:=false; if system.pos('Ap',aperiodity) > 0
> then result[3]:=true else result[3]:=false; if system.pos('My',aperiodity)
> > 0 then result[4]:=true else result[4]:=false; if
> system.pos('Ju',aperiodity) > 0 then result[5]:=true else result[5]:=false;
> if system.pos('Jl',aperiodity) > 0 then result[6]:=true else
> result[6]:=false; if system.pos('Au',aperiodity) > 0 then result[7]:=true
> else result[7]:=false; if system.pos('S',aperiodity) > 0 then
> result[8]:=true else
> result[8]:=false;
> if system.pos('O',aperiodity) > 0 then result[9]:=true else
> result[9]:=false; if system.pos('N',aperiodity) > 0 then result[10]:=true
> else
> result[10]:=false;
> if system.pos('D',aperiodity) > 0 then result[11]:=true else
> result[11]:=false;
> end;
> ----------------
sub monthsstate(aperiodity: msestring): booleanarty;
var
result: booleanarty;
begin
setlength(result,12);
result[0]:= system.pos('Ja',aperiodity) > 0;
result[1]:= system.pos('F',aperiodity) > 0;
result[2]:= system.pos('Mr',aperiodity) > 0;
result[3]:= system.pos('Ap',aperiodity) > 0;
result[4]:= system.pos('My',aperiodity) > 0;
result[5]:= system.pos('Ju',aperiodity) > 0;
result[6]:= system.pos('Jl',aperiodity) > 0;
result[7]:= system.pos('Au',aperiodity) > 0;
result[8]:= system.pos('S',aperiodity) > 0;
result[9]:= system.pos('O',aperiodity) > 0;
result[10]:= system.pos('N',aperiodity) > 0;
result[11]:= system.pos('D',aperiodity) > 0;
end:= result;
------------------------------------------------------------------------------
Shape the Mobile Experience: Free Subscription
Software experts and developers: Be at the forefront of tech innovation.
Intel(R) Software Adrenaline delivers strategic insight and game-changing
conversations that shape the rapidly evolving mobile landscape. Sign up now.
http://pubads.g.doubleclick.net/gampad/clk?id=63431311&iu=/4140/ostg.clktrk
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
