Dim mTimeStart As M_DATETIME
Dim mTimeStop As M_DATETIME
Dim eStartType As eMStartType
Dim myTask As MItem
pItem.ItemTimesGet(mTimeStart, mTimeStop, eStartType)
Dim myName As String
Dim myNewTime As M_DATETIME
mPlaylist.SchedulerGetByTime(mTimeStop, myNewTime, myName, myTask)
M_DATETIME mTimeStart;
M_DATETIME mTimeStop;
eMStartType eStartType;
MItem myTask;
pItem.ItemTimesGet(out mTimeStart, out mTimeStop, out eStartType);
string myName;
M_DATETIME myNewTime;
mPlaylist.SchedulerGetByTime(ref mTimeStop, out myNewTime, out myName, out myTask);
var
myPlaylist: MPlaylist;
mTimeStart, mTimeStop, mNewTime: M_DATETIME;
eStartType: eMStartType;
myTask: MItem;
myCount: integer;
myName: string;
myScheduler: IMScheduler;
begin
myPlaylist:= CreateComObject(CLASS_MPlaylist) as MPlaylist;
pItem.ItemTimesGet(mTimeStart, mTimeStop, eStartType);
myScheduler := myPlaylist as IMScheduler;
myScheduler.SchedulerGetByTime(mTimeStop, myNewTime, myName, myTask);
end;