Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Аналог TDBEdit c нормальной маской для ввода ip адреса. [D7, access]


DVM ©   (2006-05-23 13:38:00) 

Нет ли у кого готового?


ORMADA   (2006-05-24 11:02:00) [1]

юзай Jedi там есть


DVM   (2006-05-23 18:37:00) [2]


> ИМХО, маскэдиты - зло

почему?

> А "удобный" это какой?

Типа как в свойствах сетевого соединения Windows - TCP/IP
Я конечно могу сам проверять введенное пользователем, просто думал может есть решение готовое.
А маску не создать в стандартном эдите нужную.


novill   (2006-05-23 18:27:00) [3]

А "удобный" это какой?

ИМХО, маскэдиты - зло

это на Кейпресс

if not (key in [ #0..' ','.','0'..'9']) then key:=#0;

а это на  эксайт.

var sl:TStringList; i:integer; t:integer;
begin
try
 sl:=TStringList.Create;
 sl.Delimiter:='.';
 sl.DelimitedText :=Edit1.Text;
 if Edit1.Text='' then begin Edit1.SetFocus; Exit; end;

 for i:=0 to sl.Count-1 do
  if not TryStrToInt(sl[i],t) or not(t in [0..255]) then begin Edit1.SetFocus; Exit; end;
finally
 sl.free;
end;


DVM   (2006-05-23 13:57:00) [4]


> Desdechado ©   (23.05.06 13:51) [1]

Вы не поняли. Стандартными масками не добиться удобного ввода IP.
Сама MS комбинирует поле ввода IP - адреса из 4 Edit-ов.


Desdechado   (2006-05-23 13:51:00) [5]

FieldByName('IP').EditMask


Наверх

Титульная страница Поиск, карта сайта Написать письмо