procedure addp(a,b : integer); var k : integer; begin k := a b; end; procedure TForm1.Button1Click(Sender: TObject); var i , j : integer; begin i:= strtoint(Edit1.text); j:= strtoint(Edit2.text); label1.caption:= inttostr(addp(i,j,k)); 它顯示label1.caption:= inttostr(addp(i,j,k));這一行有錯 能否告訴我是怎錯了呢？謝謝高手們

應該要用function傳回值 function addp(a,b : integer):integer var k : integer; begin k := a b; result := K; end;

應該要用function傳回值 function addp(a,b : integer):integer var k : integer; begin k := a b; result := K; end; 在function你也只設了兩個值傳入 所以你只能丟兩個值 label1.caption:= inttostr(addp(i,j));