菜鸟求救：怎样编一个function或procedure,分100

Question

你说的很不明确，“只要有一个integer参数，代码就根据integer去执行”，然后又“只要一个string参数就可以了”，我怀疑后面的是返回值~~到是不难写的。

Answer 1

procedure XXX(params:integer);
begin
  Case Params of
  0: 
    begin
    end;
  1:
    begin
    end;
  2:
    begin
    end;
  3:
    begin
    end;
   .....
  end;
end;

Answer 2

procedure test( i : integer);
  begin
    case i of
      1: showmessage('1');
      2: showmessage('2');
    else
      showmessage('other') ;
    end;
  end;

Answer 3

procedure test( i : integer);
  begin
    case i of
      1: showmessage('1');
      2: showmessage('2');
    else
      showmessage('other') ;
    end;
  end;

Answer 4

能说说你想达到什么目的吗？
procedure yourprocname(Aint: Integer);
begin
  //在这里写上你的代码就可以了，Aint就是传入的参数，可以根据不同的Aint进行相应的处理
end;

Answer 5

procedure test( i : integer);
  begin
    case i of
      1: showmessage('1');
      2: showmessage('2');
    else
      showmessage('other') ;
    end;
  end;

Answer 6

在程序中，我很多过程都用到相同的代码，只是根据不同的数目（integer);
结果是：只要有一个integer参数，代码就根据integer去执行。
相当于showmessage,只要一个参数就可以了，最好有原代码，谢谢

Answer 7

procedure test( i : integer);
  begin
    case i of
      1: showmessage('1');
      2: showmessage('2');
    else
      showmessage('other') ;
    end;
  end;