全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1052
推到 Plurk!
推到 Facebook!

memo存成文字檔的問題

答題得分者是:taishyang
sjh
一般會員


發表:8
回覆:10
積分:3
註冊:2003-03-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-03-29 16:38:21 IP:202.168.xxx.xxx 未訂閱
大家好: 我有一張圖檔,大小為100x50 這是一張黑白影像,我已經把每一點存成0(白) or 1(黑)存在文字檔 理論上文字檔應該有5000個數值,但是文字檔卻只有4287個數值 但是memo上卻正確顯示了5000個數值 請問大家,如何解決這問題? 謝謝大家 發表人 - taishyang 於 2005/03/29 18:48:16
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-03-29 17:14:08 IP:210.68.xxx.xxx 未訂閱
請PO上程式碼讓大家幫您看看
sjh
一般會員


發表:8
回覆:10
積分:3
註冊:2003-03-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-03-29 17:32:13 IP:202.168.xxx.xxx 未訂閱
    
void __fastcall TForm1::BitBtn5Click(TObject *Sender)
{
Memo1->Lines->Clear();
for (int x=0;xWidth;x  )
{
 for (int y=0;yHeight;y  )
 {
  int value=GetRValue(Image1->Canvas->Pixels[x][y]);
    if (value)
    {
     StringGrid1->Cells[x][y]="w";
     Memo1->Lines->Add(0);   //白0,黑1
    }
    else
    {
     StringGrid1->Cells[x][y]="B";
     Memo1->Lines->Add(1<<(7-(y%8)));         Memo1->Lines->SaveToFile("d:\\test1.txt");  //儲存文字檔路徑
    }
  }
 }
}
程式如上所示 謝謝
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-03-29 18:06:24 IP:210.68.xxx.xxx 未訂閱
Memo1->Lines->SaveToFile("d:\\test1.txt");  //儲存文字檔路徑
放到離開迴圈後
順心
系統時間:2024-11-25 13:54:13
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!