小弟没写过function,只会用function传出去值,带回来一个值应该怎么写啊??帮帮忙!!!

解决方案 »

  1.   

    function aa(str:string):string;
    begin
      ......
      result:=返回值;
    end;
      

  2.   

    function aa(str:string):string;
    begin
      ......
      result:=返回值;
    end;
    =====================
    不是这个意思吧,result,是调用aa(str:string)时传到外面的值呀??~~!!
      

  3.   

    附给你所需的控件或变量...等如:借用楼上的函数
    function aa(str:string):string;
    begin
      ......
      result:=返回值;
    end;调用时:
    edit1.text:=aa('test');
      

  4.   

    function aa(var str: string): string;
    begin
      str := '';
      Result := '';
    end;你想要什么?
      

  5.   

    function showfrmAccount(AsCode:String;var AsSid,AsSidname:string):integer;AsSid,AsSidname是我传给调用showfrmAccount()函数的。AsCode是调用完函数传回去的,是吗?
      

  6.   

    不是,ASCODE是传值参数,就算你在showfrmAccount函数中改变其值,调用函数后不会发生改变,ASSID是传址参数,在showfrmAccount函数中改变其值,调用函数后会发生改变,函数真正的返回值是function showfrmAccount(AsCode:String;var AsSid,AsSidname:string):integer;中最后的INTEGER,函数由函数体中的RESULT 或 showfrmAccount返回一个整型变量。函数和过程是程序设计最基本的知识,您一定要掌握好,只有这样才能写出好的程序。
      

  7.   

    function aa1(str:integer):string;///按值传递
    begin
      result:=inttostr(str);
      str:=str+1;
    end;function aa(Var str:integer):string;///引用传递
    begin
      result:=inttostr(str);
      str:=str+1;
    end;aa的结果:
    i:=1;
    aa(i)-->'1'
    i---->2
    aa1的结果
    i:=1;
    aa1(i)-->'1'
    i--->1
      

  8.   

    先把Object Pascal复习一遍(或者叫学习一遍。呵呵)