線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:919
推到 Plurk!
推到 Facebook!

請問如何用StringGrid以文字的方式排列出一個圓形

尚未結案
iii0628
一般會員


發表:50
回覆:46
積分:19
註冊:2005-04-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-05-06 23:08:50 IP:163.13.xxx.xxx 未訂閱
請問如何用StringGrid元件以文字的方式排列出一個接近圓形的CELL。我舉例一下我的程式是10*10二維陣列,我要以(5,5)為原點、半徑是3 排列出一個圓形(圓形面積內的CELL都填1,其他的地方填0)。我現在想不出有什麼寫法,可以請前輩教一下嗎???如果圓形太麻煩,可以用正方形表示。謝謝 我現在只寫到這裡...試過一些方法都不行。
 
for(int i=0; i<10; i  )
   {
      for(int j=0; j<10; j  )
      {
         if((i==5)&&(j==5))
         StringGrid1->Cells[j][i]=1;
        
        else
        StringGrid1->Cells[j][i]=0;
        
       }
    }
richtop
資深會員


發表:122
回覆:646
積分:468
註冊:2003-06-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-05-06 23:36:09 IP:211.76.xxx.xxx 未訂閱
iii0628 您好:    程式碼修改如下,請參考!    
void __fastcall TForm1::Button1Click(TObject *Sender)
{ int r2=3*3, dr;
  int cx=5, cy=5;      for (int i=0; i<10; i  )
     { for (int j=0; j<10; j  )
          { dr = (j-cx)*(j-cx) (i-cy)*(i-cy);
            if ( dr <= r2 )
              StringGrid1->Cells[j][i]=1;
            else
              StringGrid1->Cells[j][i]=0;
          }
     }
}
RichTop 敬上 =====***** 把數學當工具,可以解決問題;將數學變能力,能夠發現並解決問題! =====#####
系統時間:2024-06-26 7:55:27
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!