Главная страница
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.012 c
3-54448
Officeman
2003-03-26 19:39
2003.04.17
Фильтрация!


3-54400
Andrey V.
2003-04-01 09:04
2003.04.17
Можно ли обойтись одним запросом ...


3-54408
Silver_
2003-03-27 10:20
2003.04.17
ADODataSetBeforeDelete


3-54413
me2
2003-04-01 13:56
2003.04.17
Подключение к удаленной БД


8-54754
Zeratul
2003-01-17 01:55
2003.04.17
Существует ли DelphiX для Delphi 6 ?