Форум: "Основная";
Поиск по всему сайту: 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.02 c
14-81064          knyaz17               2002-03-19 16:34  2002.04.25  
Проблема с Oracle в Win2000!!!


1-80983           Dr. Web               2002-04-12 12:47  2002.04.25  
Об OpenOffice замолвите слово...


1-80903           VJar                  2002-04-14 23:33  2002.04.25  
Самокопирование


1-80937           Алена                 2002-04-11 17:49  2002.04.25  
Async Pro + Модем


1-80985           koks                  2002-04-12 13:34  2002.04.25  
TStringGrid... ПАМАГИТЕ!