你們好.. 我有一段程式，明明是用for迴圈的寫法.. 但卻只會跑一次，這是為什麼呢? procedure TForm1.Button1Click(Sender: TObject); var i:integer; a:array of string; begin setlength(a,10); a[0]:='0101'; a[1]:='0228'; for i:=0 to 2 do if edit1.Text = a[i] then showmessage('good') else if edit1.Text <> a[i] then showmessage('no'); end;

沒錯ㄚ 會跑三次 不曉得你ㄉ問題是什麼 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

你好. 我想問的是... 我要判斷edit1是否等於a陣列內的值.. 若不是就跳出 但是…這段程式只會判斷一次.. 也就是說…它只會判斷a陣列中的一個條件而以.    

是指這樣嗎 var i:integer; a:array of string; begin setlength(a,10); a[0]:='0101'; a[1]:='0228'; for i:=0 to 2 do begin if edit1.Text = a[i] then showmessage('good') else if edit1.Text <> a[i] then showmessage('no'); break; end; end;

正確說起來，按照你的意思，要把a的String陣列遍覽完，是要判斷30次。 class="code"> procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; a:array of string; begin setlength(a,10); a[0]:='0101'; a[1]:='0228'; for i:=0 to 2 do begin for j := Low(a) to High(a) do begin if edit1.Text = a[j] then showmessage('good') else if edit1.Text <> a[j] then showmessage('no'); end; end; end; ---------------------------------------------- We will either find a way, or make one. -Hannibal -。