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;