在用户输入时向TEdit插入指定分隔符的实现问题

你的原代码逻辑存在两个核心问题：一是仅在文本长度为2时追加斜杠，但后续输入的字符会被添加到斜杠后方，导致最终格式混乱；二是未处理光标位置和重复触发的问题，无法保证输入流程的连贯性。

下面提供两种可行的解决方案：

方案一：使用OnKeyPress事件（精准控制输入） #

通过OnKeyPress直接拦截输入字符，仅允许数字和退格键，同时实时调整文本格式与光标位置：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  CurrentPos: Integer;
begin
  // 仅允许数字和退格键输入
  if not (Key in ['0'..'9', #8]) then
  begin
    Key := #0;
    Exit;
  end;

  // 处理退格键：若光标在斜杠后，同步删除斜杠与前一位数字
  if Key = #8 then
  begin
    CurrentPos := Edit1.SelStart;
    if (CurrentPos = 3) and (Edit1.Text[3] = '/') then
    begin
      Edit1.Text := Copy(Edit1.Text, 1, 2) + Copy(Edit1.Text, 4, Length(Edit1.Text)-3);
      Edit1.SelStart := 2;
      Key := #0;
    end;
    Exit;
  end;

  // 处理数字输入：输入第2位后自动插入斜杠
  CurrentPos := Edit1.SelStart;
  if (Length(Edit1.Text) = 2) and (CurrentPos = 2) then
  begin
    Edit1.Text := Edit1.Text + '/';
    Edit1.SelStart := 3; // 光标移至斜杠后，等待输入年份
  end
  else if Length(Edit1.Text) >= 5 then // 限制总长度为5（MM/YY）
  begin
    Key := #0;
  end;
end;

方案二：改进ChangeTracking事件（兼容粘贴场景） #

先过滤文本中的非数字字符，再重新格式化输出，同时修正光标位置，适合用户可能粘贴文本的场景：

procedure TForm1.Edit1ChangeTracking(Sender: TObject);
var
  CleanText: string;
  i: Integer;
begin
  // 过滤所有非数字字符，保留原始输入的数字
  CleanText := '';
  for i := 1 to Length(Edit1.Text) do
  begin
    if Edit1.Text[i] in ['0'..'9'] then
      CleanText := CleanText + Edit1.Text[i];
  end;

  // 根据数字长度重新格式化文本
  case Length(CleanText) of
    0..1: Edit1.Text := CleanText;
    2: Edit1.Text := CleanText + '/';
    3..4: Edit1.Text := Copy(CleanText, 1, 2) + '/' + Copy(CleanText, 3, 2);
  end;

  // 设置光标位置，确保输入流畅
  if Length(Edit1.Text) > 2 then
    Edit1.SelStart := 3
  else
    Edit1.SelStart := Length(Edit1.Text);
end;

方案说明 #

• 方案一优势：实时拦截无效输入，光标位置控制精准，用户输入体验更流畅，适合纯手动输入场景。
• 方案二优势：自动清理非数字内容，即使粘贴带格式的文本也能自动修正为MM/YY格式，兼容性更强。

内容的提问来源于stack exchange，提问作者Shiffles