如何改变Memo中特定字符的颜色？

[zhaoxinghan]

想让某几个字符显示红色，其他都为黑色，应该怎么做？

[jacknes009]

Memo好像不能满足你的要求，试试其他控件
用TRichEdit试试

[zhaoxinghan]

顶一下

[i_love_pc]

Memo好像不能满足你的要求，试试其他控件，比如richedit

[cczlp]

TRichEdit或第三方组件

[constantine]

TRichEdit

[zhaoxinghan]

能给一个TRichEdit的例子么？
比如说让某一行输出的字符串为红色？

[Javpp]

20分太少啦,呵呵, 我这里有一个函数, 你可以用, 但是用的TRichEdit, 不是Memo

void __fastcall TForm1::CodeColors (TForm* Form, String Style, TRichEdit* RichE, bool InVisible )
//Style: [Default,Classic,Twilight,Ocean]
{
//·?o?
String CodeC1[20] = { "#", "$", "(", ")", "*",
",", ".", "/", ":", ";",
"[", "]", "{", "}", "<",
">", "-", "=", "+", "@"
};
//±￡á?×?
String CodeC2[44] = { "and",
"as",
"begin",
"case",
"char",
"class",
"const",
"downto",
"else",
"end",
"except",
"finally",
"for",
"forward",
"function",
"if",
"implementation",
"interface",
"is",
"nil",
"or",
"private",
"procedure",
"public",
"raise",
"repeat",
"string",
"to",
"try",
"type",
"unit",
"uses",
"var",
"while",
"external",
"stdcall",
"do",
"until",
"array",
"of",
"in",
"shr",
"shl",
"cos",
};

long FoundAt;
int StartPos, ToEnd, i;
String OldCap,T;
TColor FontC, BackC, C1, C2, C3, strC, strC1;

[Javpp]

OldCap = Form->Caption;
RichE->Font->Name = "Courier New";
RichE->Font->Size = 10;
if (RichE->WordWrap)
{
RichE->WordWrap = false;
}
RichE->SelectAll ();
RichE->SelAttributes->Color = clBlack;

RichE->SelAttributes->Style = TFontStyles ();
RichE->SelStart = 0;
if (InVisible)
{
RichE->Visible = false;
Form->Caption = "Executing Code Coloring...";
}

BackC = clWhite;
FontC = clBlack;
C1 = clBlack;
C2 = clBlack;
C3 = clBlack;
strC = clBlue;
strC1 = clSilver;

if (Style == "Twilight")
{
BackC = clBlack;
FontC = clWhite;
C1 = clLime;
C2 = clSilver;
C3 = clAqua;
strC = clYellow;
strC1 = clRed;
}
else if (Style == "Default")
{
BackC = clWhite;
FontC = clBlack;
C1 = clTeal;
C2 = clMaroon;
C3 = clBlue;
strC = clMaroon;
strC1 = clSilver;
}
else if (Style == "Ocean")
{
BackC = 0x00FFFF80;
FontC = clBlack;
C1 = clMaroon;
C2 = clBlack;
C3 = clBlue;
strC = clTeal;
strC1 = clBlack;
}
else if (Style == "Classic")
{
BackC = clNavy;
FontC = clYellow;
C1 = clLime;
C2 = clSilver;
C3 = clWhite;
strC = clAqua;
strC1 = clSilver;
}
else
{
T = "{" + Style + " = Invalid Style [Default,Classic,Twilight,Ocean] ONLY! }";
RichE->Lines->Insert (0,T);
StartPos = 0;
ToEnd = RichE->Text.Length () - StartPos;
FoundAt = RichE->FindText (T, StartPos, ToEnd, TSearchTypes () << stWholeWord);
RichE->SelStart = FoundAt;
RichE->SelLength = T.Length ();
RichE->SelAttributes->Color = clRed;
RichE->SelAttributes->Style = RichE->SelAttributes->Style << fsBold;
StartPos = 0;
ToEnd = RichE->Text.Length () - StartPos;
FoundAt = RichE->FindText ("ONLY!", StartPos, ToEnd, TSearchTypes () << stWholeWord);
RichE->SelStart = FoundAt;
RichE->SelLength = 4;
RichE->SelAttributes->Color = clRed;
RichE->SelAttributes->Style = RichE->SelAttributes->Style << fsBold << fsUnderline;
}

RichE->SelectAll ();
RichE->Color = BackC;
RichE->SelAttributes->Color = FontC;

for (i = 0; i <= 9; i ++)
{
StartPos = 0;
ToEnd = RichE->Text.Length () - StartPos;
FoundAt = RichE->FindText (IntToStr(i), StartPos, ToEnd, TSearchTypes () << stWholeWord);
while (FoundAt != -1)
{
RichE->SelStart = FoundAt;
RichE->SelLength = IntToStr (i).Length ();
RichE->SelAttributes->Color = C1;
RichE->SelAttributes->Style = TFontStyles ();
StartPos = FoundAt + IntToStr (i).Length ();
FoundAt = RichE->FindText (IntToStr (i), StartPos, ToEnd, TSearchTypes () << stWholeWord);
}
}

for (i = 0; i <= 20; i ++)
{
StartPos = 0;
ToEnd = RichE->Text.Length () - StartPos;
FoundAt = RichE->FindText (CodeC1[i], StartPos, ToEnd, TSearchTypes ());
while (FoundAt != -1)
{
RichE->SelStart = FoundAt;
RichE->SelLength = CodeC1[i].Length ();
RichE->SelAttributes->Color = C2;
StartPos = FoundAt + CodeC1[i].Length ();
FoundAt = RichE->FindText (CodeC1[i], StartPos, ToEnd, TSearchTypes ());
}
}

for (i = 0; i <= 44; i ++)
{
StartPos = 0;
ToEnd = RichE->Text.Length () - StartPos;
FoundAt = RichE->FindText (CodeC2[i], StartPos, ToEnd, TSearchTypes () << stWholeWord);
while (FoundAt != -1)
{
RichE->SelStart = FoundAt;
RichE->SelLength = CodeC2[i].Length ();
RichE->SelAttributes->Color = C3;
RichE->SelAttributes->Style = RichE->SelAttributes->Style << fsBold;
StartPos = FoundAt + CodeC2[i].Length ();
FoundAt = RichE->FindText(CodeC2[i], StartPos, ToEnd, TSearchTypes () << stWholeWord);
}
}
StartPos = 0;
FoundAt = RichE->FindText ('\'', StartPos, RichE->Text.Length (), TSearchTypes ());
while (FoundAt != -1)
{
RichE->SelStart = FoundAt;
StartPos = FoundAt + 1;
FoundAt = RichE->FindText('\'', StartPos, RichE->Text.Length (), TSearchTypes ());
if (FoundAt != -1)
{
RichE->SelLength = (FoundAt - RichE->SelStart) + 1;
RichE->SelAttributes->Style = TFontStyles ();
RichE->SelAttributes->Color = strC;
StartPos = FoundAt + 1;
FoundAt = RichE->FindText ('\'', StartPos, RichE->Text.Length (), TSearchTypes ());
}
}

StartPos = 0;
FoundAt = RichE->FindText ('{', StartPos, RichE->Text.Length (), TSearchTypes ());
while (FoundAt != -1)
{
RichE->SelStart = FoundAt;
StartPos = FoundAt + 1;
FoundAt = RichE->FindText ('}', StartPos, RichE->Text.Length (), TSearchTypes ());
if (FoundAt != -1)
{
RichE->SelLength = (FoundAt - RichE->SelStart) + 1;
RichE->SelAttributes->Style = TFontStyles ();
RichE->SelAttributes->Color = strC1;
StartPos = FoundAt+1;
FoundAt = RichE->FindText ('{', StartPos, RichE->Text.Length (), TSearchTypes ());
}
}

if (InVisible)
{
RichE->Visible = True;
Form->Caption = OldCap;
}
RichE->SelStart = RichE->Text.Length ();
}
//---------------------------------------------------------------------------

[sfengnet]

RichEdit1->SelStart=0;
RichEdit1->SelLength=100;
RichEdit1->SelAttributes->Color=clRed;

[laowang2]

不错

[zhaoxinghan]

太强了，虽然看了半天有些不太明白，但是还是谢谢javpp大大，明天试试看，后天结帖。