| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Пробелы... [D6, Win95/98, WinXP]
Ahmad K © (2003-02-12 00:12:00)Уважаемые Мастера!
В проге присутствует форма регистрации с едитом куда юзер пишет свое Ф.И.О., после Ф.И.О. заносится в .log, частенько получается, что юзер вводит в графу пробелы (потому как все символы кроме алфавитных и пробелов запрешены), поэтому хотелось бы спросить как этого избежать, я же не могу предусмотреть сколько пробелов он введет? Также надо запретить вводить первым символом пробел, как это сделать?
Заранее спасибо!
Sha (2003-02-12 09:33:00) [1]Я вот тут как раз нашел :)
http://delphibase.endimus.com/?action=viewfunc&topic=strchange&id=10395
Leshiy (2003-02-12 06:37:00) [2]Trim()
Чих-пых (2003-02-12 01:39:00) [3]Тьфу, я сглючил чё-то, думал вообще пробелы запретить :-)) Сорри :)
Насчёт удаления лишних пробелов - тут огромная дискуссия была в форуме, даже проводилось соревнование у кого функция быстрее получиться :) Так что поищите...
Чих-пых (2003-02-12 01:37:00) [4]Да всё проще: просто чиста канкретна запретить вводить пробелы :-)
Событие OnKeyPress для Edit1:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#32 then
Key := #0;
end;
Борис_ (2003-02-12 00:31:00) [5]сначало второе
клакаешь на edit потом заходишь в Events
ищешь там onchage
потом в
procedure Tform1.Edit1onchange...
begin
if ord(edit1.text[1])=32 then begin
showmessage("незя!");
edit1.clear;
edit1.setfocus;
end;
end;
ща посмотрю для первого вопроса
| |
