Пробелы...

← →
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]

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

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

Trim()

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

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