Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.17;
Скачать: CL | DM;

Вниз

конкретный символ в TMemo ...   Найти похожие ветки 

 
spogi   (2003-04-04 00:41) [0]

Привет всем!
Вот такой вопрос...
Хочу програмным способомвзять первый символ в TMemo, обработать (ну, там выделить, шрифт-цвет поменять, заменять, удалять и т.д.), потом отпустив, выбрать второй... и так д. до самого последнего символа...


 
Anatoly Podgoretsky ©   (2003-04-04 01:12) [1]

Бесполезно у TMemo нет возможности управления шрифтом для отдельного символа.


 
konstantinov ©   (2003-04-04 01:20) [2]

Если не ошибаюсь в RichEdit это можно.


 
spogi   (2003-04-04 04:29) [3]

>> Konstantinov
a kak v RichEdit? esli mojno...

a mojno, skopirovat (to, cto v TMemo) kuda nibud, chtob mojno bila s simvolami rabotat?


 
zacho ©   (2003-04-04 06:45) [4]

Читай про TRichEdit.SelAttributes, TRichEdit.SelStart, TRichEdit.SelLength и т.п.


 
Anatoly Podgoretsky ©   (2003-04-04 09:44) [5]

spogi (04.04.03 04:29)
С симолами можно работать и Мемо, только расскрашивать нельзя.
И скопировать можно S := Memo.Text


 
spogi   (2003-04-05 23:29) [6]

извените меня, у меня случайно пошло, цвет поменять, это естественно не должно быть, а с остальными проблем нет...
спосибо Anatoly, получился примерно вот так:

S:String;

S:=Memo1.Text;
конкретный сивол
For i:=0 to Length(S) do begin
S[i]:="a"; //все символы заменяются на "a"
end;


 
Anatoly Podgoretsky ©   (2003-04-06 00:38) [7]

For i:=0 to Length(S) на единицу больше чем есть в мемо!!!


 
Palladin ©   (2003-04-06 01:24) [8]

как он интересно получился :) ладно хоть примерно...


 
spogi   (2003-04-06 02:58) [9]

ну я здесь написал не обращав не это вниманию, а в проекте я конечно так и сделал... Length(S) -1 ... Это уже ясно с сообщением типа:
"не существует S[i]" (или что-то в этом роде)...



Страницы: 1 вся ветка

Текущий архив: 2003.04.17;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
1-54636
BetMaster
2003-04-08 08:17
2003.04.17
Как сделать выдвигающуюся панель?


1-54566
spogi
2003-04-07 01:08
2003.04.17
Обычный, текстовой фал... (*.txt)


14-54889
Delphi-Beginner
2003-04-02 11:33
2003.04.17
для чего нужен QuickReport ?


7-54908
[Bio]z
2003-02-26 00:57
2003.04.17
Как установить системную дату?


7-54935
Dmitriy_R
2003-02-21 10:06
2003.04.17
Определить режим работы LPT порта.