請問各位先進，有沒有一個function ， 當滿足"length（edit1.text）>15"條件時一次即可以退出Loop sentence,又可以退出 function ,解決以下問題： var manflag:integer； buf:string； ‧‧‧ manflag：=0； ‧‧‧‧ repeat if length（edit1.text）>15 then begin manflag：=1； break； end； until pos（chr（$4B）,buf）>0 if manflag=1 then begin exit； end；

立即退出 function : exit;     

var 
  buf:string； 
‧‧‧ 
‧‧‧‧ 
  repeat 
    if length（edit1.text）>15 then 
      exit； 
  until pos（chr（$4B）,buf）>0 

發表人 - Justmade 於 2003/05/06 22:47:36

引言: 請問各位先進，有沒有一個function ， 當滿足"length（edit1.text）>15"條件時一次即可以退出Loop sentence,又可以退出 function ,解決以下問題：

var 
  manflag:integer； 
  buf:string； 
  ‧‧‧ 
  manflag：=0； 
  ‧‧‧‧ 
  repeat 
   if length（edit1.text）>15 then 
    begin 
      manflag：=1； 
       break；
    end； 
  until pos（chr（$4B）,buf）>0 
  if manflag=1 then 
   begin 
     exit； 
   end； 

不太了解程式的作用,但可建議下列做法以節省程式碼,並達到相同作用 紅色部份改為 exit; 藍色部份刪除