我有一个 Delphi 作业。如果我在我的编辑框中输入文本并且它少于 6 个字母，那么它是不允许的，如果是那么可以

Question

我很确定我的问题是由于 If 语句引起的。

我必须做一个程序，如果我插入一定数量的字符输入编辑框，数量小于5，然后它会告诉我“showmessage'请确保密码大于5个字符';但如果它超过五个字母，它将打印在备忘录表格上。但我想一键完成。有什么想法吗？

var, var
sName : string ;

sName := edit1.text ;
if edit1.text > 6 then
begin
  showmessage’please ensure that etc.’
end;

这似乎不起作用，我认为这是因为字符串和整数不能一起工作。

Answer 1

是的，您的假设是正确的 - 您正在尝试将字符串与数字进行比较，这在 Delphi 中是不允许的。

你需要检查输入文本的长度，所以IF语句应该是：

if length(edit1.text) > 6 then

另外，请注意您说“大于 5”，但您的 code 说“大于 6”。

Answer 2

TEdit 有一个 GetTextLen() 方法，其中 returns 输入的字符数：

if Edit1.GetTextLen < 5 then
begin
  ShowMessage('please ensure that etc.');
end else
begin
  // use Edit1.Text as needed...
end;

I have a Delphi assignment. If I input text into my edit box and it’s less than 6 letters than it mustn’t be allowed, if is then works