Форум: "Основная";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];
ВнизПробелы... Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c