mdsk.net
当前位置:首页 >> DElphi7达人~求重复判断语句 >>

DElphi7达人~求重复判断语句

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 el...

fsLowered的类型是TFrameStyleEx,此类型的声明在RzComMon单元里面。所以要引用RzComMon单元,即在uses下面加上它。

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com