Скрипт без критических ошибок. Но не работает когда пытаюсь запустить- нет результатов. Ваши заметки и замечания очень будут кстати. Буду рад помощи

program NoticeGet;
var
IntermediateVariable, sMsg, UserListStore: string;
byteArray : array of integer;
CountStore,SendMsg, Count, f,i: integer;
time, dtNow: double;

const
SetTime=16;
Group1='Группа1';
function GetUserList(sUINList:string):string;
var
sData,sUIN,sResult:string;
UserListStore:string;
begin
sData:=sUINList;
while length(sData)>0 do begin
sUIN:=GetNextSt(sData,',');
sResult:=sResult+sUIN+',';
end;
result:=sResult;
end;
begin

UserListStore:=GetUserList(mGetUsersListInGroupByName(Group1));
IntermediateVariable:=UserListStore;
i:=0;
while length(IntermediateVariable)>0 do
begin
sMsg:=GetNextSt(IntermediateVariable, ',');
byteArray[i]:=sMsg;
CountStore:=i;
Inc(i);
end;
time:=FormatDateTime('hh',dtNow);
if (time=SetTime) then begin
for Count:=0 to CountStore do begin
SendMsg:=mSendBroadcast('Hi','i',EndofTheDay(Now),0);

end;
end;
end.

Последний раз редактировалось Владимир.Егоров Пт мар 02, 2018 4:56 pm, всего редактировалось 1 раз.

[Алексей Пикуров]

Здравствуйте.

Чтобы понять, что в логике скрипта не так — используйте mLogScript в консоль, чтобы увидеть промежуточные результаты.

Попробуйте.

Team lead
Чат со мной