Текущий архив: 2002.04.25;
Скачать: CL | DM;
Вниз
замена символов в 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]Лучше использовать множество, понятнее
Страницы: 1 вся ветка
Текущий архив: 2002.04.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
