Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.017 c
3-80833           Alik Chu              2002-04-05 17:14  2002.04.25  
Народ! Помогите найти нормальный DbTreeView


1-80873           LazorenkoX            2002-04-11 11:58  2002.04.25  
Русский язык в консоле


7-81097           Sender                2002-01-27 11:09  2002.04.25  
Адрес ввода-вывода PS/2 порта


6-81019           Alexey80              2002-02-14 08:33  2002.04.25  
Снифер


14-81048          FLIZ                  2002-03-18 19:02  2002.04.25  
Подскажите, откуда можно скачать перекодировщик Dos/Win, который сможет обработать файл размером 1Гб