鱼C论坛

 找回密码
 立即注册
查看: 1790|回复: 1

[技术交流] 判断与循环语句的应用

[复制链接]
发表于 2015-12-24 09:02:16 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
  1. var
  2.   Form1: TForm1;

  3. implementation

  4. {$R *.dfm}


  5. procedure TForm1.btn1Click(Sender: TObject);
  6. begin
  7.     Form1.Width := StrToInt(edt1.Text );
  8.     Form1.Height := StrToInt(edt2.Text );
  9. end;

  10. procedure TForm1.btn2Click(Sender: TObject);
  11. begin
  12.     if StrToInt(edt1.Text ) < 400 then
  13.         Form1.Width := 450
  14.     else
  15.         Form1.Width := 600;
  16.     if StrToInt(edt2.text ) < 400 then
  17.         Form1.Height := 400
  18.     else
  19.         form1.Height := 600;
  20. end;

  21. procedure TForm1.btn3Click(Sender: TObject);
  22. var i, m : Integer ;
  23. begin
  24.       Form1.Width := 1;
  25.       Form1.Height := 1;

  26.       if (StrToInt(edt1.Text ) >= StrToInt(edt2.Text )) then
  27.           m := StrToInt(edt1.Text )
  28.       else
  29.           m := StrToInt(edt2.Text );
  30.       for i := 1 to m do
  31.          begin
  32.             Form1.Width := Form1.Width +1 ;
  33.              Form1.Height :=form1.Height +1;

  34.           end;
  35. end;

  36. procedure TForm1.btn4Click(Sender: TObject);
  37. begin
  38.     Close ;
  39. end;

  40. end.
复制代码

布局

布局
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2016-1-7 12:56:58 | 显示全部楼层
没看懂什么意思
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-28 19:35

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表