Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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]

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




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




Наверх





Память: 0.71 MB
Время: 0.039 c
14-81041          vlv                   2002-03-19 18:50  2002.04.25  
База данных - слова


7-81098           star                  2002-01-24 17:45  2002.04.25  
О точных временных интервалах ...


6-81014           bg8                   2002-02-13 18:13  2002.04.25  
Нужен WEB Сервер для WindowsME


6-81016           Phobos_kx             2002-02-11 19:35  2002.04.25  
Помогите пожалуйста!!! как переслать Image через Socket


4-81117           BVS                   2002-02-06 17:15  2002.04.25  
Как создать динамический масив?