Форум: "Основная";
Поиск по всему сайту: 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.104 c
3-80738           Olex                  2002-04-05 21:36  2002.04.25  
Как убрать запрос логина и пароля при обращении к БД Аксес...


3-80834           trever                2002-04-05 13:11  2002.04.25  
Как обновить содержимое дблукапкомбобокса?


3-80827           MAxiMum               2002-04-03 16:20  2002.04.25  
Обновления в Interbase


3-80779           kserg@ukr.net         2002-04-04 15:50  2002.04.25  
DBGrid.columns - как


1-80882           inko                  2002-04-14 11:41  2002.04.25  
Сохранение .ICO файла...