請問個很簡單的問題,第一次學,謝謝各位高手 |
答題得分者是:jimmy_wei
|
yuanyuan
一般會員 發表:2 回覆:2 積分:0 註冊:2005-11-07 發送簡訊給我 |
請問,就是我有拉二個edit和一個lable還有一個button就是按button後
那二個edit 會相加起來 ,而結果會顯示在label裡,而它顯示出錯在procedure裡,請各位高手幫我看一下哪錯了,好嗎?謝謝 {$R *.dfm}
function add(a,b: integer): integer;
procedure TForm1.Button1Click(Sender: TObject);
var i , j : integer;
begin
i:= strtoint(Edit1.text);
j:= strtoint(Edit2.text);
label1.caption:= inttostr(add(i,j));
add:= a b;
end; end.
|
jimmy_wei
高階會員 發表:9 回覆:176 積分:147 註冊:2003-08-28 發送簡訊給我 |
你好....
我改了一下你的程式...
我想這才是你要的...
procedure TForm1.Button1Click(Sender: TObject); var i , j : integer; begin i:= strtoint(Edit1.text); j:= strtoint(Edit2.text); label1.caption:= inttostr(add(i,j)); end; function TForm1.add(a,b: integer): integer; begin result:= a b; end; |
yuanyuan
一般會員 發表:2 回覆:2 積分:0 註冊:2005-11-07 發送簡訊給我 |
引言: 你好.... 我改了一下你的程式... 我想這才是你要的...不行呢?會出錯在label1.caption:= inttostr(add(i,j)); function TForm1.add(a,b: integer): integer; result:= a b; 這三行剛有試了, 還是不行 但是還是真謝謝你的解答procedure TForm1.Button1Click(Sender: TObject); var i , j : integer; begin i:= strtoint(Edit1.text); j:= strtoint(Edit2.text); label1.caption:= inttostr(add(i,j)); end; function TForm1.add(a,b: integer): integer; begin result:= a b; end; |
jimmy_wei
高階會員 發表:9 回覆:176 積分:147 註冊:2003-08-28 發送簡訊給我 |
怎麼可能!!??
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); private function add(a, b: integer): integer; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i , j : integer; begin i:= strtoint(Edit1.text); j:= strtoint(Edit2.text); label1.caption:= inttostr(add(i,j)); end; function TForm1.add(a,b: integer): integer; begin result:= a b; end; end. |
yuanyuan
一般會員 發表:2 回覆:2 積分:0 註冊:2005-11-07 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |