Question

各位高手，请问 如何在 delphi 7 中实现 for xxx in xxx do 的语法。

Answer 1

foreach(string f in Request.Files.AllKeys)
{
string fileName, fullName;
HttpPostedFile postFile = Request.Files[f];
if (postFile.ContentLength > 10)
{
fileName = postFile.FileName;
//GetFileName( fileName, out fullName );
fullName = "UpLoad/aaa.jpg "
postFile.SaveAs ( Server.MapPath ( fullName ) );
Response.Write (fullName);
}
}

追问

我不知道你这是 什么语言写的，新手，看不懂。我要的是delphi 7 下用object-pascal写的。比如下面这个程序片段：（万一老师博客中的。）
for item in jo.AsObject do
begin
ShowMessageFmt('Name:%s; Value:%s',[item.Name,item.Value.AsString]);
end;

Answer 2

定义枚举
TColsJsonEnum = (...);
定义集合
TColsJsonSet = Set of TColsJsonEnum

var
J:TColsJsonEnum;

for J:=Low(TColsJsonEnum) to High(TColsJsonEnum) do
begin
........
end;

Answer 3

这是Delphi高版本的一个新特性吧，Delphi7没有这个写法, 参考下面链接