請問如何自在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); 類似這樣的方法 希望這樣描述你可以明白 我好像有點想法了!我試試!感謝 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |