Текущий архив: 2006.07.30;
Скачать: CL | DM;
Вниз
Аналог TDBEdit c нормальной маской для ввода ip адреса. Найти похожие ветки
← →
DVM © (2006-05-23 13:38) [0]Нет ли у кого готового?
← →
Desdechado © (2006-05-23 13:51) [1]FieldByName("IP").EditMask
← →
DVM © (2006-05-23 13:57) [2]
> Desdechado © (23.05.06 13:51) [1]
Вы не поняли. Стандартными масками не добиться удобного ввода IP.
Сама MS комбинирует поле ввода IP - адреса из 4 Edit-ов.
← →
novill (2006-05-23 18:27) [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 18:37) [4]
> ИМХО, маскэдиты - зло
почему?
> А "удобный" это какой?
Типа как в свойствах сетевого соединения Windows - TCP/IP
Я конечно могу сам проверять введенное пользователем, просто думал может есть решение готовое.
А маску не создать в стандартном эдите нужную.
← →
ORMADA © (2006-05-24 11:02) [5]юзай Jedi там есть
Страницы: 1 вся ветка
Текущий архив: 2006.07.30;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.017 c
