| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Memo

aleks ©   (2004-10-04 09:28:00) 

Как перебрать Мемо посимвольно?

---

Ega23   (2004-10-04 10:25:00) [1]

2ЮЮ ©   (04.10.04 09:37) [2]
2TUser ©   (04.10.04 09:38) [3]

Согласен, маленько промахнулся...

---

TUser   (2004-10-04 09:38:00) [2]

for i:= 1 to Length(Memo.Text) do

---

ЮЮ   (2004-10-04 09:37:00) [3]

Ega23 ©   (04.10.04 09:31) [1]
Memo.Text - это св-во, а не string-овая переменная

тогда уж
var
 s: string;
begin
 s := Memo.Text;
 for i := 0 to length(s) do s[i] := '*';
 Memo.Text := s;

---

Ega23   (2004-10-04 09:31:00) [4]

for i:=0 to Length(Memo.Text) do
Memo.Text[i]:='*';

---

Наверх