坐看云起时_雨宣

Repeat 循环 Repeat s := s+1; i := i+1; Until (i > j) ; var s,i:Integer; begin i:=0; s:=0; repeat begin i := i+1; s := s+i; end; until(i=100); lbl1.Caption := IntToStr(s); end; while 循环 while (i > j) d..

delphi中Edit控件并没有提供内容对齐的方式，可以利用win函数来实现： SetWindowLong(ed1.Handle,GWL_STYLE,GetWindowLong(ed1.Handle,GWL_STYLE) or ES_CENTER); ed1.Invalidate; ed1 为 Edit的Name属性 ES_CENTER 居中 ES_LEFT 左边 ES_RIGHT 右边 ...