VPF::Before and after events - Форум программистов

mido

Дата 7.12.2009, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 22.2.2008

Репутация: нет
Всего: нет

i'm trying to implement a Before and After Event onTime :

how could i do an event before Min Value 'in this case 5 minutes ' ?

Код


Procedure Before(Min:Word); 
Var 
 Sm, // System Time ; Time to compare To 
 Mt: // My Time ; Time to compare with
TTime;
S:String;
begin 
S:='10:05:00';
Min:=5; // 5 Miutes 
Sm:=Now;          // system time 
Mt:=StrToTime(S);//  My Time
{ 
Let's suppose the fowlling :
Sm:=10:00:00;  // System Time
Mt:=10:05:00; //  My Time
That means it's 5 minutes to rich Mt time '10:05:00'

if before 5 Minutes then 
ShowMessage('5 minutes to reach My Time '); 
} 
end;

how could i do an event after Min Value 'in this case 5 minutes ' ?

Код


Procedure After(Min:Word); 
Var 
 Sm, // System Time ; Time to compare To 
 Mt: // My Time ; Time to compare with
TTime;
S:String;
begin 
S:='10:00:00';
Min:=5; // 5 Miutes 
Sm:=Now;          // system time 
Mt:=StrToTime(S);//  My Time
{ 
Let's suppose the fowlling :
Sm:=10:05:00;  // System Time
Mt:=10:00:00; //  My Time
That means it's 5 minutes passed from Sm time '10:05:00'

if after 5 Minutes then 
ShowMessage('5 minutes passed from system time '); 
}
end;

how could i do an event after Min Value 'in this case 5 minutes ' ?

RedCliphAloe

Дата 7.12.2009, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 13.5.2009

Репутация: 2
Всего: 3

My English is poor, sorry...
???:

Код


procedure P(Min:Word);
var
  Sm, Mt: TTime;
  HH, MI, SS, MS: Word;
  S: String;
begin
  S := '10:05:00';
  Min := 5;
  Sm := Time;
  Mt := StrToTime(S);
  DecodeTime(Sm, HH, MI, SS, MS);
  MI := MI + Min;
  Sm := EncodeTime(HH, MI, SS, MS);
  if Sm >= Mt then
    ShowMessage('5 minutes passed from system time')
  else
    ShowMessage('5 minutes to reach My Time');
end;

Это сообщение отредактировал(а) RedCliphAloe - 7.12.2009, 12:37

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »