[已結案]变量给值出错,求帮忙,谢谢了 |
答題得分者是:borland_delphi70
|
8023
一般會員 發表:2 回覆:0 積分:0 註冊:2007-12-20 發送簡訊給我 |
[code delphi] implementation {$R *.dfm} TYPE st=array[0..2] of real; procedure clear(out a:st); var i,e:integer; begin e:=0; for i:=0 to high(a) do begin i:=i 1; //一运行就提示这里有错误 e:=e 1; a[i]:=e; end; end; procedure TForm1.Button1Click(Sender: TObject); var tm:st; begin clear(tm); showmessage(tm[1]); end; end. [/code] 请大家帮帮忙,谢谢了,我用的是DILPHI7 編輯記錄
8023 重新編輯於 2007-12-28 11:06:25, 註解 無‧
|
eaglewolf
資深會員 發表:4 回覆:268 積分:429 註冊:2006-07-06 發送簡訊給我 |
|
borland_delphi70
中階會員 發表:8 回覆:50 積分:51 註冊:2002-12-06 發送簡訊給我 |
長官:
變數 i 式迴圈再用的不可直接加、減,你可使用兩種方式替代: 1.以迴圈處理 [code delphi] procedure clear(out a:st); var i,e:integer; begin e:=0; for i:=0 to high(a) do begin //i:=i 1; //刪除 e:=e 1; if (i 1<2) then a[i 1]:=e; end; end; [/code] 2.用 While 指令 [code delphi] procedure clear(out a:st); var i,e:integer; begin e:=0; i:=0; while i < high(a) do begin i:=i 1; e:=e 1; a[i]:=e; end; end; [/code] ===================引 用 8023 文 章=================== [code delphi] implementation {$R *.dfm} TYPE st=array[0..2] of real; procedure clear(out a:st); var i,e:integer; begin e:=0; for i:=0 to high(a) do begin i:=i 1; //一运行就提示这里有错误 e:=e 1; a[i]:=e; end; end; procedure TForm1.Button1Click(Sender: TObject); var tm:st; begin clear(tm); showmessage(tm[1]); end; end. [/code] 请大家帮帮忙,谢谢了,我用的是DILPHI7 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |