各位前輩： 請問一下，要如何讀出".txt"的文字檔，但顯示出來的文字是彩色的， 例如： M --> 黃色 1 --> 綠色 2 --> 紅色 3 --> 橙色 : : 文字檔內容如下： MMMMMMMM MM1111333411MM MMM2333311111MM MMM2311122221MM MM1321344422MM MMM1233121MM MM12334MM MMM12MM

用TRichEdit可以做到。TRichEdit.SelAttributes可以改變顏色，Help裡有完整範例可參考。

各位前輩： 我的意思是同一行有不同的顏色，但我試的結果是整行都是同一種 顏色，有其他方法可以達成嗎？謝謝！

引言: 各位前輩： 我的意思是同一行有不同的顏色，但我試的結果是整行都是同一種 顏色，有其他方法可以達成嗎？謝謝！

試試這個吧!! procedure TForm1.Button1Click(Sender: TObject); var i, j, iLen : integer ; s : string ; begin iLen:=0 ; for i:=0 to RichEdit1.Lines.Count-1 do begin s:=RichEdit1.Lines.Text ; for j:=1 to length(s) do begin RichEdit1.SelStart:=iLen j-1 ; RichEdit1.SelLength:=1 ; case s[j] of 'M' : RichEdit1.SelAttributes.Color:=clYellow ; '1' : RichEdit1.SelAttributes.Color:=clGreen ; '2' : RichEdit1.SelAttributes.Color:=clRed ; '3' : RichEdit1.SelAttributes.Color:=$000080FF ; end end ; end ; end; ...Aquarius

參考看看 在 TRichEdit 讀出 "TXT" 的文字檔，能顯示文字是多種彩色的 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34784