Delphi的in循环
来源:互联网 发布:莆田网络安全教育平台 编辑:程序博客网 时间:2024/05/15 06:50
今天无意中看到了一篇文章里面提起到了for in do 循环,之前没有用过的方法。
一、遍历 TStrings
var
List: TStrings;
s: string;
begin
List := TStringList.Create;
List.CommaText := ‘aaa,bbb,ccc’;
for s in List do
ShowMessage(s);
List.Free;
end;
二、遍历数组
var
Arr: array[0..2] of Byte;
i: Integer;
b: Byte;
begin
for i := Low(Arr) to High(Arr) do
Arr[i] := Random(MAXBYTE);
for b in Arr do
ShowMessage(IntToStr(b));
end;
三、遍历子界
{例1}
var
sub: 0..9;
str: string;
begin
str := ”;
for sub in [Low(sub)..High(sub)] do
str := str + IntToStr(sub);
ShowMessage(str); {0123456789}
end;
{例2}
type
TSub = ‘A’..’G’;
var
sub: TSub;
str: string;
begin
str := ”;
for sub in [Low(sub)..High(sub)] do
str := str + sub;
ShowMessage(str); {ABCDEFG}
end;
{例3}
var
sub: Byte; {Byte 应该算是个 0..255 的子界}
num: Cardinal;
begin
num := 0;
for sub in [Low(sub)..High(sub)] do
Inc(num, sub);
ShowMessage(IntToStr(num)); {32640}
end;
四、遍历枚举
type
TEnum = (Red,Green,Blue);
var
enum: TEnum;
count: Integer;
begin
count := 0;
for enum in [Low(enum)..High(enum)] do
Inc(count);
ShowMessage(IntToStr(count)); {3}
end;
五、遍历集合
type
TEnum = (Red,Green,Blue,Yellow);
TSet = set of TEnum;
var
set1: set of TEnum;
set2: TSet;
elem: Tenum;
count: Integer;
begin
set1 := [Red, Yellow];
count := 0;
for elem in set1 do Inc(count);
ShowMessage(IntToStr(count)); {2}
set2 := [Red..Yellow];
count := 0;
for elem in set2 do Inc(count);
ShowMessage(IntToStr(count)); {4}
end;
六、遍历字符串
var
str: string;
c: Char;
begin
str := ‘ABCD’;
for c in str do
ShowMessage(c);
end;
如果你用过C#的话你可能会觉得眼熟,和C#的foreach循环类似。
原作者万一的博客,原址:
http://www.cnblogs.com/del/archive/2008/11/12/1332011.html
- Delphi的in循环
- Delphi - 循环的秘密
- delphi中in的使用
- Delphi和VC++的for循环
- DELPHI学习笔记--单元的循环引用
- for ...in 结构的循环
- json 的for in循环
- javaScript的for in 循环
- javascript的for in 循环
- Thinking in Delphi:语言的变革
- Thinking in Delphi:语言的变革
- BCB In Delphi的 Flash Demo
- 在 Delphi 2009 中, for in 循环都能用在什么地方?
- 在 Delphi 2009 中, for in 循环都能用在什么地方?
- javascript中的for in循环和for循环的使用
- for 循环和 for/in 循环的区别
- javascript中的for in循环和for循环的使用
- for ... of循环和for ... in循环的区别
- 设计模式-创建型模式#单例模式Singleton
- 手提式起重器的正确保养
- 光源
- OpenFileDialog的用法
- Remove Linked List Elements
- Delphi的in循环
- 根据汉语字符串获得对应的拼音字符串或者拼音首字母字符串等操作
- Windows Azure 系列-- Azure Redis Cache的配置和使用
- 深度学习之一:概述
- OPCACHE和APC相关问题
- Mongoose源码剖析:外篇之web服务器
- Android当中用到的Log和Toast
- 改变XCode的默认设置
- Linux多线程编程及线程同步方法总结