Скачать: CL | DM;

Пробелы...   Найти похожие ветки 

← →
Ahmad K   (2003-02-12 00:12) [0]

Уважаемые Мастера!
В проге присутствует форма регистрации с едитом куда юзер пишет свое Ф.И.О., после Ф.И.О. заносится в .log, частенько получается, что юзер вводит в графу пробелы (потому как все символы кроме алфавитных и пробелов запрешены), поэтому хотелось бы спросить как этого избежать, я же не могу предусмотреть сколько пробелов он введет? Также надо запретить вводить первым символом пробел, как это сделать?
Заранее спасибо!

---

← →
Борис_ ©   (2003-02-12 00:31) [1]

сначало второе

клакаешь на edit потом заходишь в Events

ищешь там onchage
потом в

procedure Tform1.Edit1onchange...

begin
if ord(edit1.text[1])=32 then begin
showmessage("незя!");
edit1.clear;
edit1.setfocus;
end;

end;

ща посмотрю для первого вопроса

---

← →
Чих-пых ©   (2003-02-12 01:37) [2]

Да всё проще: просто чиста канкретна запретить вводить пробелы :-)
Событие OnKeyPress для Edit1:


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#32 then
Key := #0;
end;


---

← →
Чих-пых ©   (2003-02-12 01:39) [3]

Тьфу, я сглючил чё-то, думал вообще пробелы запретить :-)) Сорри :)

Насчёт удаления лишних пробелов - тут огромная дискуссия была в форуме, даже проводилось соревнование у кого функция быстрее получиться :) Так что поищите...

---

← →
Leshiy ©   (2003-02-12 06:37) [4]

Trim()

---

← →
Sha ©   (2003-02-12 09:33) [5]

Я вот тут как раз нашел :)
http://delphibase.endimus.com/?action=viewfunc&topic=strchange&id=10395

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c