delphi遍历循环【DOC精选】.docVIP

下载本文档

152
0
约1.66千字
约 4页
2017-02-16 发布于江苏
举报
版权申诉

delphi遍历循环【DOC精选】.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

在 Delphi 2009 中, for in 循环都能用在什么地方? 一、遍历 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;