On Thursday 21 November 2013 08:32:57 Martin Schreiber wrote:

> I do not like much the terminating 'return' statement, but
> "
> sub strfunc(): msestring;
> var
>  result: msestring;
> begin
>  result:= 'The string result:'
>  if 1 <> 2 then
>   result:= result + 'mumu';
>  else
>   result:= result + 'koko';
>  end;
> end:= result;
> "
> probably is too exotic. ;-)
>
or
"
sub strfunc(): msestring;
var
 result: msestring;
begin
 result:= 'The string result:'
 if 1 <> 2 then
  result:= result + 'mumu';
 else
  result:= result + 'koko';
 end;

 := result; //mandatory, only possible as last statement
end;

sub strfunc1(const avalue: msestring): msestring;
begin
 := 'The string result:'+avalue;
end;

sub strfunc2(const avalue: msestring,para: boolean): msestring;
begin
 if para then
  return 'The not string result';
 end;
 := 'The string result: '+avalue;
end;
"

Martin



------------------------------------------------------------------------------
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

Reply via email to