在Edit框中限制输入255以内的整数

在TEdit控件的OnKeyPress事件中加入如下代码即可实现：

var
    strTmp: string;

    //从ClipBoard中获得当前的字符串
function GetClipBoardString(): string;
var
      arTmp: array [0..255] of Char;
begin
      Clipboard.Open;
try
if Clipboard.GetTextBuf(arTmp, 256) > 0 then Result:= arTmp
else Result:= '';
finally
        Clipboard.Close;
end;
end;
begin
    //过滤退格键、复制键、剪切键
if not (Key in [#08, #3, #24]) then
begin
if (Key in ['0'..'9']) then
begin
if (TEdit(Sender).SelLength = 0) then
begin
          //缓存当前输入框中的内容
          strTmp:= TEdit(Sender).Text;

          //拼成输入后的字符串
          Insert(Key, strTmp, TEdit(Sender).SelStart + 1);

          //判断输入后的字符串是否合理，不合理的话则不允许输入
if StrToIntDef(strTmp, 256) > 255 then
            Key:= #0
else
            //限制在数字前输入字符'0'
if (TEdit(Sender).SelStart = 0) and (Key = '0') then Key:= #0;
end
else
begin
          //缓存当前输入框中的内容
          strTmp:= TEdit(Sender).Text;

          //删除选中字符
          Delete(strTmp, TEdit(Sender).SelStart + 1, TEdit(Sender).SelLength);

          //添加新输入的内容
          Insert(Key, strTmp, TEdit(Sender).SelStart + 1);

          //如果输入的内容不合理，则不允许输入
if StrToIntDef(strTmp, 256) > 255 then Key:= #0;
end;
end
else
begin
        //处理 Ctrl + V 操作，字符表示为 #22
if (Key = #22) then
begin
          //缓存当前输入框中的内容
          strTmp:= TEdit(Sender).Text;

          //如果存在选中字符，即可以变蓝的部分，则删除选中字符，然后替换为剪切板中的内容
if (TEdit(Sender).SelLength > 0) then
begin
            //删除选中字符
            Delete(strTmp, TEdit(Sender).SelStart + 1, TEdit(Sender).SelLength);

            //添加剪切板中的内容
            Insert(GetClipBoardString(), strTmp, TEdit(Sender).SelStart + 1);
end
else
begin
            //添加剪切板中的内容
            Insert(GetClipBoardString(), strTmp, TEdit(Sender).SelStart + 1);
end;

          //如果输入的内容不合理，则不允许输入
if StrToIntDef(strTmp, 256) > 255 then Key:= #0;
end
else Key:= #0;
end;
end;
end;

转载于:https://www.cnblogs.com/greeneyesna/archive/2011/10/20/greeneyesna.html