if edit3.text<>pass then
Application.MessageBox('密码不正确，请重新输入','提示', MB_ICONSTOP)

else
begin
edit1.text='111';
end;
為什么if 與else之間只能有一個語句，不能兩條語句以上，如何改？

加 begin..end 即可

if edit3.text<>pass then
begin
Application.MessageBox('密码不正确，请重新输入','提示', MB_ICONSTOP)
// 以下可寫第二行以後的程式碼
end
else
begin
edit1.text='111';
end;

if xxx then
  // 程式     <== 這裡不可以有分號 
else
  // 程式;    <== 這裡要有

不只一行程式, 要用begin end

if xxx then
begin
  // 程式;     <== 這裡有分號 
end            <== 這裡不可以有分號 
else
  // 程式;     <== 這裡要有

或

if xxx then
  // 程式     <== 這裡不可以有分號 
else
begin
  // 程式;     <== 這裡有分號 
end;           <== 這裡有分號

或 

if xxx then
begin
  // 程式;     <== 這裡有分號 
end            <== 這裡不可以有分號 
else
begin
  // 程式;     <== 這裡有分號 
end;           <== 這裡有分號

如果你的 if then 用的很多層, 最好都用上 begin , 然後 end 加上註解是哪個開頭的
     
if xxx then
begin
  if yyy then
  begin
    // 程式
  end; // if yyy
  if zzz then
  begin
    // 程式
  end; // if zzz
end; // if xxx

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

另外,以後如果遇到兩層以上的 if else, 很多層的 begin/end.

或當你在看別人的程式,卻排版看不習慣,


在這介紹 Rainbow text editor,



Begin/End,Case /End 顏色可以不同層不同顏色,以利區分.

1.在閱讀別人複雜的程式碼非常有幫助,


2.還有,就是遇到當 begin/end,Case/End 多層距離超過 1000 行時,又改到不小心 多一個 Begin 或少一個 End 的時候.

而Delphi提示錯誤的行數,有時離真正問題的行數,都以經幾百甚至上千行了.
用這個來檢查,要找出問題源非常有幫助.

所以不管是 有在處裡 Delphi 複雜程式的老手,
或 剛入門看別人程式碼不同排法常看錯的新手,

建議下載一份,以備不時之需.




中文版下載
http://www.actionxp.com/get/rainbow_tw.exe

http://www.actionxp.com/get/rainbow_tw.zip

網頁介紹:
http://www.actionxp.com/editor/help_tw


有免費版,也有共享版,

而共享版:
本站網友,只要超過3個月,張貼文章超過3篇,
就可以免費跟作者申請註冊碼歐.