delphi for 循环 downto用法

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := StrToInt(Edit1.Text) downto 1 do
    Memo1.Lines.insert(0, 'Valeur = ' + i.ToString);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to StrToInt(Edit1.Text) do
    Memo1.Lines.insert(0, 'Valeur = ' + i.ToString);
end;
 

相关阅读 >>

Delphi gridpanel percent百分比设置

Delphi dateutils.ispm - 判断时间是否是下午

Delphi xe5做一个android网页框架

Delphi 两字符串之间添加分隔符

Delphi 得到指定文件夹内文件名

Delphi tstatusbar 用来显示当前程序状态的

Delphi qq自动发消息源码

Delphi 制作放两个小图片的按钮

Delphi 如何确定活动桌面是否已启用

Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi for 循环 downto用法