Форум: "Основная";
Поиск по всему сайту: 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.033 c
14-81079          Helpwuin              2002-03-21 14:14  2002.04.25  
ХЕ ХЕ


6-81022           Johnny                2002-01-28 18:35  2002.04.25  
Проблемы с RPC сервером при использовании TDCOMConnection


3-80756           Timka                 2002-04-02 08:59  2002.04.25  
прошу подсказку


14-81044          Виктор Щербаков       2002-03-19 13:44  2002.04.25  
Константные выражения


3-80777           Sewix                 2002-04-04 12:05  2002.04.25  
Б Д не работает на другом компе