Delphi如何通过单个按钮实现编辑框输入长度校验及Memo输出功能

以下是按钮点击事件的可运行完整代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  sInput: string;
begin
  sInput := Edit1.Text;
  // 输入长度校验
  if Length(sInput) < 6 then
  begin
    ShowMessage('请确保密码长度超过5个字符');
    Exit; // 终止后续逻辑，禁止提交
  end;
  // 校验通过后输出到Memo组件
  Memo1.Lines.Add(sInput);
end;

代码修改说明 #

• 修正了变量声明错误：删除了重复的var关键字，Delphi局部变量仅需声明一次var即可
• 解决了字符串与整数无法比较的问题：调用内置函数Length()获取输入字符串的字符长度，再和整数6做大小比较
• 修正了校验逻辑方向：调整判断条件为长度小于6时弹出提示，调用Exit直接终止当前事件执行，实现禁止提交的效果
• 修正了ShowMessage语法错误：补充方法调用的括号，提示内容使用英文单引号包裹
• 补充了Memo输出逻辑：校验通过后调用Memo1.Lines.Add()将输入内容追加到Memo组件展示

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