在DELPHI没有FOR IN的语法时,我们要使用如下代码枚举数据集中的每个内容: cds.First; while not cds.eof do begin ... cds.Next; end; 最少要四句,而且字数有些多.如果程序中大量使用这个,代码看起来总是不舒服. 在DELPHI XE,可以利用XE对 FOR IN 扩展,建立新的扩展,使用起来好象有点动态语言的味道: unit faDataSetEx; interface uses DB,ADODB,Variants,SysUtils,…