[Fanil]

Здравствуйте! У меня есть текст который выводится в Мемо:

Код:

1 2 3

if  Mp2> Mn2 then         Memo1.Lines.Add('Вывод: Mп>Mн, поэтому пуск двигателя под нагрузкой возможен') else         Memo1.Lines.Add('Вывод: Mп<Mн, поэтому пуск двигателя под нагрузкой невозможен')

Как сделать так чтобы изменить цвет шрифта например на красный? Но остальной текст в Мемо попрежнему должен оставаться по умолчанию черным. Заранее спасибо!

[PhoeniX]

Используй TRichEdit. В Memo это невозможно.

[Fanil]

А не подскажете как это сделать в TRichEdit?

[Assistant]

вот как-то так наверное (взято из Delphi World):

Код:

1 2 3 4 5 6 7 8 9 10 11 12

<b>procedure </b>TMainForm.AddColoredLine(AText: <b>string</b>; AColor: TColor; AStyle: TFontStyles; ASize: integer); <b>begin </b>  <b>with </b>RichEdit1 <b>do </b>  <b>begin </b>    SelStart := Length(Text);     SelAttributes.Color := AColor;     SelAttributes.Size := ASize;     SelAttributes.Name := <font color="Navy">'MS Sans Serif'</font>;     SelAttributes.Style := AStyle;     Lines.Add(AText);   <b>end</b>; <b>end</b>;

юзать так:

Код:

1	AddColoredLine(<font color="Navy">'Вывод: Mп<Mн, поэтому пуск двигателя под нагрузкой невозможен'</font>,clRed,[fsBold],8);