請問： 我有一個txt檔是由其他程式產生的， 裡面的資料型態是： 每行只有一個0或1，然後就換行，總共是63行， 我要如何讀取這個檔案的所有資料， 然後形成一個連續63個bits， 0、1組成的字串，然後顯示在一個Edit上？ p.ss1 txt檔如附檔 p.s.2 產生txt的程式無法修改，也就是說txt檔的內容只能是上述的形式(63行) p.s.3 我用Borland 麻煩大家幫幫我，謝謝

引言: 請問： 我有一個txt檔是由其他程式產生的， 裡面的資料型態是： 每行只有一個0或1，然後就換行，總共是63行， 我要如何讀取這個檔案的所有資料， 然後形成一個連續63個bits， 0、1組成的字串，然後顯示在一個Edit上？ p.ss1 txt檔如附檔 p.s.2 產生txt的程式無法修改，也就是說txt檔的內容只能是上述的形式(63行) p.s.3 我用Borland 麻煩大家幫幫我，謝謝

howdz你好： 看意思你只要 class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString FileName="C:\\test.txt"; TStringList* sl=new TStringList; sl->LoadFromFile(FileName); AnsiString fullstr=""; for (int lCnt=0;lCntCount;lCnt ) fullstr =sl->Strings[lCnt]; Edit1->Text=fullstr; delete sl; } 嗯，方法很多，行就可以了!

引言: howdz你好： 看意思你只要 class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString FileName="C:\\test.txt"; TStringList* sl=new TStringList; sl->LoadFromFile(FileName); AnsiString fullstr=""; for (int lCnt=0;lCntCount;lCnt ) fullstr =sl->Strings[lCnt]; Edit1->Text=fullstr; delete sl; } 嗯，方法很多，行就可以了! < face="Verdana, Arial, Helvetica"> 多謝m8815010大哥， 我不會的就是用TStringList直接以LoadFromFile()的函式去讀取檔案， 然後再宣告一個AnsiString的變數去把TStringList裡的字元讀出來形成字串， 現在學會這個相當方便，而且應該會常用到的好技巧了， 非常感謝喲！