如何讀出".txt"文字檔,以彩色方式顯示? |
答題得分者是:aquarius
|
nick_chen
一般會員 發表:9 回覆:5 積分:2 註冊:2003-04-14 發送簡訊給我 |
|
00156
高階會員 發表:45 回覆:195 積分:112 註冊:2002-06-01 發送簡訊給我 |
|
nick_chen
一般會員 發表:9 回覆:5 積分:2 註冊:2003-04-14 發送簡訊給我 |
|
aquarius
資深會員 發表:3 回覆:347 積分:330 註冊:2003-05-21 發送簡訊給我 |
引言: 各位前輩: 我的意思是同一行有不同的顏色,但我試的結果是整行都是同一種 顏色,有其他方法可以達成嗎?謝謝!試試這個吧!! 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
------
水瓶男的blog: http://791909.blogspot.com |
banson1716
高階會員 發表:55 回覆:182 積分:167 註冊:2002-04-14 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |