for each method

[maxkleiner]

theres no for each operator but we can map it:

//for c := 'a' to 'z' do for c:= ord('a') to ord('z') do

//for ch in adata do begin for chi:= low(adata) to high(adata) do begin ch:= adata[chi]

[maxkleiner]

Surrogate:

              c: AnsiChar; Dec: Ansistr   
                //for c in Dec do
                for it:= 1 to length(dec) do begin
                  c:= dec[it]

            //For Each ObjService in objectsList
            iset:= WMIExecQuery(isser,’Select * from Win32_OperatingSystem’)
            result:=(botoStr(WMIRowFindFirst(iset, ENum, tempObj)));
            repeat
                  sysid:= (‘OSid: ‘+vartoStr(tempobj.csname)+
                  ‘ – ‘+vartoStr(tempobj.name)+
                  ‘ — ‘+vartoStr(tempobj.caption))
            until not WMIRowFindNext(ENum, tempobj); //}