你的函式寫的有問題啊~~~函式引數是num1,num2，那你怎麼還在過程中定義num1,num2呢？還有你呼叫也有問題啊！label1.Caption:=mystr(edit1.Text,edit2.Text); 你自己定義函式返回值和引數都是整形，你呼叫使用的字串型別，你把函式返回值賦給label1.Caption也不對啊~~~他不是整形啊

你寫好函式宣告部分寫在 private或者public下都行

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

//新增函式宣告

public

{ Public declarations }

//新增函式宣告

end;

新增好函式聲明後，將游標放到函式宣告上，按下“Ctrl+Shift+C”這樣delphi自動為你生成函式定義部分框架，你在begin end；中新增程式碼即可