Delphi中实现IP地址输入框

1,窗体内放入一个TMaskEdit控件

2,设置控件EditMask属性Input Mask值为999.999.999.999,Character for Blanks值为 空格,Save Literal Charaters值为True.

3,设置AutoSelect属性值为False

4,控件的OnChange事件添加如下代码:

procedure TFrmMain.MEdtServerIPChange(Sender: TObject);
var
t: array[0..3] of string;
i, j, len: integer;
begin
len := StrLen(PChar(MEdtServerIP.text));
//取字符串长度
for i := 0 to 3 do
    //分四段读取
begin
    t[i] := '';
    if len < i * 3 + 1 then
      Break;
    for j := i * 3 + 1 to i * 3 + 3 do
    begin
      //读三个字符
      if j <= len then
        t[i] := t[i] + MEdtServerIP.Text[j]
      else
        Break;
    end;
    if t[i] = '' then
    begin
      ShowMessage('错误: ' + t[i] + '是错误的地址');
      Break;
    end;
    if StrToIntDef(t[i], 0) > 255 then
    begin
      ShowMessage('错误: ' + t[i] + '是错误的地址');
      Break;
    end;
end;
end;