我的程式碼如下        if ((F<> 0) and(F MOD 7 =0)) then     begin       printer.NewPage;       J:=F;     end     else     if (F > 7)anD (F<14) then J:=7 else if (F>14) and (F<21) then J:=14 else if (F>21)AND (F<28) then J:=21 else if (F>28)AND (F<35) then J:=28 else if (F>35)AND (F<42) then J:=35 else if (F>42)AND (F<49) then J:=42 else if (F>49)AND (F<56) then J:=49 else ....................... 以此類推 請問一下，有沒有什麼迴圈可以減化此程式， 我只有想到case可以用，但好像也不是那麼好用說~ 因為我SELECT出來的資料不確定有多少筆，那個F變數值是SELECT出來的筆數~

Hi,narcysion:   你還是可以用 case ，但前提是確定F一定為Integer型態，如下

  if ((f<>0) and (f mod 7=0)) then
    begin
      printer.NewPage;
      J:=F;
    end
    else
    begin
      case f of
        8..13:j:=7;
        15..20:j:=14;
        22..27:j:=21;
        //餘此類推
      end
    end;

sorry,誤會你的意思了，可以改成如下

  if ((f<>0) and (f mod 7=0)) then
    begin
      printer.NewPage;
      J:=F;
    end
    else
    begin
      j:=(F div 7) * 7;
    end;

引言: Hi,narcysion: 你還是可以用 case ，但前提是確定F一定為Integer型態，如下

  if ((f<>0) and (f mod 7=0)) then
    begin
      printer.NewPage;
      J:=F;
    end
    else
    begin
      case f of
        8..13:j:=7;
        15..20:j:=14;
        22..27:j:=21;
        //餘此類推
      end
    end;

沒看清楚,與change.jian大大所貼的一樣 發表人 -