I ilovellq Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-17 #1 例如定义一个过程，当他满足条件1时返回值，当他满足条件2时返回值1 ，请举例说明，谢谢
D delphi_ll Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-17 #2 procedure fun1(var s:string);<br>begin<br> if() then<br> s:=''<br> else<br> s:='1';<br>end;
procedure fun1(var s:string);<br>begin<br> if() then<br> s:=''<br> else<br> s:='1';<br>end;
K kidman520 Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-17 #3 用函数不行吗？<br>function fun1(): integer(这个定义返回值的类型);<br>begin<br>if(条件一满足)<br> result := 要返回的值;<br>if(条件二满足)<br> result := 1;<br>end;
用函数不行吗？<br>function fun1(): integer(这个定义返回值的类型);<br>begin<br>if(条件一满足)<br> result := 要返回的值;<br>if(条件二满足)<br> result := 1;<br>end;
I ilovellq Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-17 #4 函数的已经明白了，但不能调用自定义的过程，得到其返回值吗？
D dedema Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-17 #5 procedure abc(var r:integer);<br>begin<br>if(条件一)then<br> r:=1<br> else<br> if(条件二) then<br> r:=2;<br>end;
procedure abc(var r:integer);<br>begin<br>if(条件一)then<br> r:=1<br> else<br> if(条件二) then<br> r:=2;<br>end;
I ilovellq Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-17 #6 To：dedema, 在其他过程中调用此方法或者r好像得不到需要的值～～
J Jason Law Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-17 #9 function fun1(x:integer): integer;<br>begin<br>if x>1 then result := 1;<br>if x<=0 then result :=0;<br>end;<br><br>
function fun1(x:integer): integer;<br>begin<br>if x>1 then result := 1;<br>if x<=0 then result :=0;<br>end;<br><br>
船 船歌 Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-17 #10 要注意,调用这个函数时参数,必须是个变量参数.<br>即是一个用VAR声明过的变量.
