Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Вниз

Memo   Найти похожие ветки 

← →
aleks   (2004-10-04 09:28) [0]

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

---

← →
Ega23 ©   (2004-10-04 09:31) [1]

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

---

← →
ЮЮ ©   (2004-10-04 09:37) [2]

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;

---

← →
TUser ©   (2004-10-04 09:38) [3]

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

---

← →
Ega23 ©   (2004-10-04 10:25) [4]

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

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

---

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

Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c