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

Вниз

замена символов в Edit   Найти похожие ветки 

← →
Филиппов Стас   (2002-04-13 18:22) [0]

Здравствуйте.
Есть Edit1 в который вводятся какието буквы(aнгл.) и цыфры, но с пробелами, точками и т.п.(1 a,2/b-3). Необходимо, что бы в Edit2 появилось просто значение поля без всяких пробелов и точек (1a2b3), а если возможно, то после каждого символа вставлялось, например "*" (1*a*2*b*3*).

---

← →
Anatoly Podgoretsky   (2002-04-13 18:51) [1]

замени пробелы на *

---

← →
Song   (2002-04-13 20:16) [2]


S:="";
For t:=1 to Length(Edit1.Text) Do IF Pos(Edit1.Text[t]," .,")=0 then S:=S+Edit1.Text[t]+"*";
Edit2.Text:=S;


---

← →
Anatoly Podgoretsky   (2002-04-13 20:24) [3]

Лучше использовать множество, понятнее

---

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

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

Наверх

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