for 循环的例子
2008-01-23 01:22
204 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} var List: TStringList; procedure TForm1.FormCreate(Sender: TObject); begin List := TStringList.Create; List.Add('aaa'); List.Add('bbb'); List.Add('ccc'); List.Add('ddd'); end; // for 循环的一般用法 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; s: string; begin for i := 0 to List.Count - 1 do begin s := List[i]; ShowMessage(s); end; end; //还有这样用的 procedure TForm1.Button2Click(Sender: TObject); var i: Integer; s: string; begin for i := 0 to Pred(List.Count) do begin s := List[i]; ShowMessage(s); end; end; //还是 for in 最方便 procedure TForm1.Button3Click(Sender: TObject); var s: string; begin for s in List do begin ShowMessage(s); end; end; //反向 procedure TForm1.Button4Click(Sender: TObject); var i: Integer; s: string; begin for i := List.Count - 1 downto 0 do begin s := List[i]; ShowMessage(s); end; end; procedure TForm1.FormDestroy(Sender: TObject); begin List.Free; end; end.
相关文章推荐
- [Python]Python 使用 for 循环的小例子
- Scala 的 yield 例子 (for 循环和 yield 的例子)
- 一个For语句导致死循环的例子
- python语言if判断,for,while循环,自编的小例子,规范版
- Scala学习之for 循环和 yield 的例子
- Scala 的 yield 例子 (for 循环和 yield 的例子)
- 两个for循环例子
- JAVA-FOR循环例子
- (9)for循环嵌套例子:打印正三角,反三角,九九乘法表,正三角形
- volatile的一段for循环例子
- 循环例子-for经典循环例子
- Scala 的 yield 例子 (for 循环和 yield 的例子)
- java 循环结构(二)关于for语句的运用,以下例子让你充分理解for循环
- Java中一个for语句导致无穷大死循环的例子
- Scala 的 yield 例子 (for 循环和 yield 的例子)
- JavaSc 4000 ript学习之for循环小例子--斑马线
- Scala 的 yield 例子 (for 循环和 yield 的例子)
- Scala 的 yield 例子 (for 循环和 yield 的例子)
- java经典for循环例子
- for循环用于延时例子