如何限制成绩计算程序输入框仅允许输入单个逗号？

DevOps 小满

2026-7-25

限制Edit控件仅允许输入单个逗号的小数格式

要实现仅允许输入包含单个逗号的有效小数，需要结合OnKeyPress和OnChange事件处理，分别拦截实时输入和处理粘贴/批量修改的场景：

1. OnKeyPress事件：实时拦截重复逗号

在输入时直接判断，若当前输入的是逗号且文本中已有逗号，则禁止输入。将以下代码绑定到test1和test2的Edit控件OnKeyPress事件：

procedure TYourForm.EditTestKeyPress(Sender: TObject; var Key: Char);
begin
  // 只允许数字、逗号、退格键（#8）
  if not (Key in ['0'..'9', ',', #8]) then
    Key := #0
  // 输入逗号时检查是否已存在
  else if Key = ',' then
  begin
    if Pos(',', (Sender as TEdit).Text) > 0 then
      Key := #0;
  end;
end;

2. OnChange事件：处理粘贴或批量修改的情况

如果用户通过粘贴操作插入多个逗号，OnKeyPress无法拦截，因此需要在OnChange事件中清理重复的逗号：

procedure TYourForm.EditTestChange(Sender: TObject);
var
  NewText: string;
  FirstCommaPos: Integer;
begin
  NewText := (Sender as TEdit).Text;
  FirstCommaPos := Pos(',', NewText);
  
  // 如果存在逗号，删除第一个逗号之后的所有逗号
  if FirstCommaPos > 0 then
  begin
    NewText := Copy(NewText, 1, FirstCommaPos) + 
               StringReplace(Copy(NewText, FirstCommaPos + 1, MaxInt), ',', '', [rfReplaceAll]);
  end;
  
  // 仅当文本确实有修改时更新，避免触发无限循环
  if NewText <> (Sender as TEdit).Text then
  begin
    (Sender as TEdit).Text := NewText;
    // 保持光标在文本末尾
    (Sender as TEdit).SelStart := Length(NewText);
  end;
end;