本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject);vari:integer;begini:=0;repeat i:=i+1; memo1.Lines.Add(IntToStr(i));until i=10;end;
procedure TForm1.Button1Click(Sender: TObject);vari:integer;begini:=10;repeat i:=i-1; memo1.Lines.Add(IntToStr(i));until i=0;end;
相关阅读 >>
Delphi dblookupcombobox组件的使用方法
Delphi有无生成空格的函数,like vb的space(1)
Delphi 实现卸载windows应用程序(类似360软件管家-卸载程序)
更多相关阅读请进入《Delphi》频道 >>