Как в TMemo найти знак

← →
Intell © (2003-03-22 19:35) [0]

Как в TMemo найти знак "=" и выделить его красным цветом? У меня список с символами, мне нужно находить знак "=". И все их выделить красным.

← →
Palladin © (2003-03-22 19:50) [1]

нельзя в TMemo ничего выделять, ни красным ни жнлтым ни коричневым...

← →
Intell © (2003-03-22 19:51) [2]

Спасибо, обрадовал. Что делать тогда?

← →
DrPass © (2003-03-22 19:54) [3]

TRichEdit
Можно также просто раздобыть компоненту с подсветкой синтаксиса. Например, mwEdit

← →
Palladin © (2003-03-22 19:59) [4]

> Intell © (22.03.03 19:51)

что делать что делать... в окно выпрыгивать...
пошарься внимательно по палитре компонентов и увидишь ты такой значек с красной буковкой A...
такое чувство что дальще вкладки Standard никто не заглядывает...

← →
Intell © (2003-03-22 20:00) [5]

И где его взять. Суть в том, что у меня список файлов (в Memo)их разделяет знак "=", его-то мне и нужно выделить во всём тексте красным.

← →
Intell © (2003-03-22 20:03) [6]

Вопрос лично к Palladin - как мне найти (раз мы такие умные) в RichEdit этот знак? А? Думаешь я не шарился в нём, иначе бы я не задавал этот вопрос в форуме.

← →
Palladin © (2003-03-22 20:10) [7]

мда...
справкой нам значит не надо пользоватся?

TCustomRichEdit.FindText

Searches a given range in the text for a target string.

type
TSearchType = (stWholeWord, stMatchCase);

TSearchTypes = set of TSearchType;

function FindText(const SearchStr: string; StartPos, Length: Integer; Options: TSearchTypes): Integer;

Description

Use FindText to search a range of text in a rich edit control for the string specified by the SearchStr parameter. Only the text in the range starting at the position StartPos and continuing through the next Length positions will be searched. Use Options to specify whether the search should match whole words only and whether the search should be case sensitive. FindText returns the position of the search string, where 0 is the position of the first character in the rich edit control (as opposed to the first position in the search range). If the search string does not appear in the indicated range, FindText returns -1.

Use FindText rather than programmatically searching through the text of the control, to keep from being thrown off by the encoding of rich text characteristics.

читайте справку... будьте умными... простое изучение свойств и методов какого нибудь класса или компонента, вам даст очень много знаний и избавит от вопросов подобных этому...

ЗЫ там еще и пример использования есть... что еще для счастья надо?

← →
Palladin © (2003-03-22 20:13) [8]

шарился ты... небось на свойства посмотрел одним глазом...

Когда-то делал так, может даже работает. Но надо улучшать.

procedure TMainForm.ToolButton30Click(Sender: TObject);
var
StartPos, ToEnd :integer;
NewPos :Integer;
EdPos :Integer;
begin
EdPos := Editor.SelStart;
StartPos := 0;
ToEnd := Length(Editor.Text);
repeat
NewPos:=Editor.FindText"Begin",StartPos,ToEnd,stWholeWord]);
If NewPos >= 0 then
begin
Editor.SelStart := NewPos;
Editor.SelLength := 5;
Editor.SelAttributes.Style := Editor.SelAttributes.Style+[fsBold];
Editor.SelLength := 0;
StartPos := NewPos + 5;
ToEnd := Length(Editor.Text)-startpos;
end;
until NewPos = -1;
Editor.SelStart := EdPos;
end;

Viktor Kushnir - спасибо за наводку, попробую.

Как в TMemo найти знак Найти похожие ветки