Question

delphi7达人~求重复判断语句

其实问题很简单啦。。。。
就是delphi中怎么实现if 的多次判断，
比如，判断A的值是否等于1。然后再模拟dos窗口中给A赋值为2，回车。
if判断为false。然后输出‘不相等’，然后再次在窗口中输入3，回车。
if又false。输出不相等。输入几次错误都可以，然后只要一次为正确的则跳出。。。。。大概上就是这个意思了。

怎么实现重复输入赋值，还有if语句的判断循环。。。。。
（貌似我表达的很含糊。。。- -~|||）

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
a := 1;
b := 0;
while True do begin
b := StrToInt(InputBox('输入窗口', '请输入：', IntToStr(b)));
if a=b then begin
ShowMessage('输入正确！');
break;
end else
ShowMessage('不相等，请重新输入');
end;
end;