Closed maxkleiner closed 1 year ago
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); //}
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]