引言: 要怎麼把讀取的檔案內容用ASCII顯示在Memo裡面? 像>< face="Verdana, Arial, Helvetica"> NitRate2你好： 直接吐給它可以嗎？ < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { if (SaveDialog1->Execute()) { TStringList *sl=new TStringList; sl->LoadFromFile(SaveDialog1->FileName); AnsiString s; for (int i=0;iCount;i ) { for (int j=1;j<=sl->Strings[i].Length();j ) s =IntToHex((byte)sl->Strings[i][j],2); Memo1->Lines->Add(s); s=""; } delete sl; } } 簡單寫這樣應該就可以了，但是這裡don't care換行符號哦! 發表人 -

引言: 謝謝m8815010大大的回答，可是這個寫法的結果，跟UltraEdit看到的結果不同! 好像會少掉一些資料，再請各位大大幫幫忙!謝謝! < face="Verdana, Arial, Helvetica">

NitRate2 你好:
(1)因為 TStringList 只適用於純文字檔案，如果你想要像 UltraEdit 一樣，
   適用於所有的檔案格式的話，建議利用 TMemoryStream 來達到目的
(2)請參考以下的範例程式碼
#>>>>>> szLine="">ProcessMessages();
         }
         Memo1->Lines->Add(szLine);
      }
      delete ms;
   }
(3)請再依照自己的需求，自行修改
(>    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --
        

引言: 謝謝m8815010大大的回答，可是這個寫法的結果，跟UltraEdit看到的結果不同! 好像會少掉一些資料，再請各位大大幫幫忙!謝謝! < face="Verdana, Arial, Helvetica"> NitRate2你好< >： 嗯， >! 要全部的檔案裡的東東當然是把檔案整棵讀入，再整棵列出即可了< >： < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { int iFileHandle; int iFileLength; int iBytesRead; unsigned char *pszBuffer; if (OpenDialog1->Execute()) { try { iFileHandle = FileOpen(OpenDialog1->FileName, fmOpenRead); iFileLength = FileSeek(iFileHandle,0,2); FileSeek(iFileHandle,0,0); pszBuffer = new char[iFileLength 1]; iBytesRead = FileRead(iFileHandle, pszBuffer, iFileLength); FileClose(iFileHandle); for (int i=0;iLines->Add(IntToHex(pszBuffer[i],2)); } delete [] pszBuffer; } catch(...) { Application->MessageBox("Can't perform one of the following file operations: Open, Seek, Read, Close.", "File Error", IDOK); } } }