本文整理自网络,侵删。
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 webbrowser同时访问两个网址导致程序出错的解决办法
Delphi xe vcl - tlinklabel(链接标签)
更多相关阅读请进入《Delphi》频道 >>