Аналог 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;

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

почему?

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

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

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

Аналог TDBEdit c нормальной маской для ввода ip адреса. Найти похожие ветки