Question

在delphi Edit中只能输入6位数字。求一段程序代码。

如图所示，在ID那一栏只能输入6位数字，例如：“000001”。（Edit输入数据已定义为string），如果没有输入6位数字或者位数少于或者多于6位，提示信息“信息输入错误，请重新输入！”
点击“添加”，添加到数据库中。

Answer 1

var
s : string;
i : int;
begin
s := edit1.Text;
if s.length<>6 then
showmessage('信息输入错误，请重新输入！');
if TryStrToInt(s,i) then
ShowMessage('是数字')
else
ShowMessage('不是数字');

end;

追问

对于i的定义是什么意思？

追答

临时输出s转为int的值，赋值给i,如果赋值成功，则说明可以转换