請問如何自在TForm上的數字輸出成TXT檔 |
|
答題得分者是：Roach
|
|
quentin520
一般會員   發表：15 回覆：13 積分：5 註冊：2006-12-18 發送簡訊給我 |
|
|
ikk
尊榮會員  發表：4 回覆：413 積分：768 註冊：2003-06-30 發送簡訊給我 |
|
|
quentin520
一般會員 發表：15 回覆：13 積分：5 註冊：2006-12-18 發送簡訊給我 |
|
|
quentin520
一般會員 發表：15 回覆：13 積分：5 註冊：2006-12-18 發送簡訊給我 |
|
|
keikojason
初階會員 發表：37 回覆：63 積分：45 註冊：2004-05-10 發送簡訊給我 |
下面有一個範例你可以參考看看，
範例中將想要輸入字KEY在Memo1中， 之後用SaveDialog存檔成文字檔(*.txt) [code cpp] void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString SaveFilePath; SaveDialog1->Execute(); if (SaveDialog1->FileName!="") { Memo1->Lines->SaveToFile(SaveDialog1->FileName); } } [/code] 祝你順心~~ |
|
shiaung67
一般會員 發表：2 回覆：5 積分：1 註冊：2006-08-25 發送簡訊給我 |
|
|
quentin520
一般會員 發表：15 回覆：13 積分：5 註冊：2006-12-18 發送簡訊給我 |
|
|
keikojason
初階會員 發表：37 回覆：63 積分：45 註冊：2004-05-10 發送簡訊給我 |
|
|
quentin520
一般會員 發表：15 回覆：13 積分：5 註冊：2006-12-18 發送簡訊給我 |
===================引 用 keikojason 文 章=================== 還是不太懂你要表達的意思~~>"< 你是希望將圖像影像處理後在另一個form呈現 之後將處理好的圖像存成文字檔嗎?~~ 映像中圖像應該無法存成文字檔吧！ 不知道你是不是這個意思哩~~ 前面的意思是對的!而後面的文字檔是將圖像轉為類似二直化的0,1之類的數值輸出到TXT檔上 |
|
Roach
中階會員 發表：61 回覆：104 積分：98 註冊：2002-11-05 發送簡訊給我 |
Hi 您好
我用比較土的方法 先用這段程式 void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *bmp=new Graphics::TBitmap; bmp->LoadFromFile("C:\\1111.bmp"); bmp->Monochrome=true; bmp->PixelFormat=pf1bit; bmp->SaveToFile("C:\\1bit.bmp"); delete bmp; } 把影像便成黑白 然後load到Image裡面 利用回圈跑image內的每一畫點(pixel) include stdio.h 並開檔 FILE *f; f=fopen("c:\\1122.txt","w"); if (Image1->Canvas->Pixels[m][n]==clBlack) fprintf(f,"1") else fprintf(f,"0") 迴圈先跑m 再跑n 每n 1的時候跑fprintf(f,"\n");//換行 最後關檔 fclose(f); 類似這樣的方法 希望這樣描述你可以明白 |
|
quentin520
一般會員 發表：15 回覆：13 積分：5 註冊：2006-12-18 發送簡訊給我 |
===================引 用 Roach 文 章=================== Hi 您好 我用比較土的方法 先用這段程式 void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *bmp=new Graphics::TBitmap; bmp->LoadFromFile("C:\\1111.bmp"); bmp->Monochrome=true; bmp->PixelFormat=pf1bit; bmp->SaveToFile("C:\\1bit.bmp"); delete bmp; } 把影像便成黑白 然後load到Image裡面 利用回圈跑image內的每一畫點(pixel) include stdio.h 並開檔 FILE *f; f=fopen("c:\\1122.txt","w"); if (Image1->Canvas->Pixels[m][n]==clBlack) fprintf(f,"1") else fprintf(f,"0") 迴圈先跑m 再跑n 每n 1的時候跑fprintf(f,"\n");//換行 最後關檔 fclose(f); 類似這樣的方法 希望這樣描述你可以明白 我好像有點想法了!我試試!感謝 |
發表時間：2008-04-08 20:37:35
IP:210.60.xxx.xxx 訂閱
系統時間：2024-05-08 20:22:29
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |