Código Delphi [-] for iCount := 0 to Length(aEventCode) - 1 do begin if aEventCode[iCount] = 1 then begin inc(iMessageId); end; end;
for iCount := 0 to Length(aEventCode) - 1 do begin if aEventCode[iCount] = 1 then begin inc(iMessageId); end; end;