Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2011, 19:11   #1
triest
Пользователь
 
Регистрация: 18.12.2010
Сообщений: 30
По умолчанию runtime error 003 в резиденте

Делаю резидент(по времени должен выдавать сообщение), но выдает ошибку времени исполнения.
Код:
{$M $800,0,0}
{F+}
uses crt,dos;
Var
 timeintvec:procedure;
 counter,chet,year,day_of_week,month,day,hour,minute,second,milisecond,day1,month1,year1,hour1,minute1:word;
 fil:text;
 sobitie:string;

Procedure int08;
const
 seconds=60;
Begin
 inline($8);     {  18.6 raz v secundu,prerivanie taimera}
 timeintvec;chet:=chet+1; {nakaplivaem prerivanie taimera 60*18.6}

 begin

  if chet=1116 then begin chet:=0;  {sbrasivaem scetchik}
  gettime(hour,minute,second,milisecond);{poluchaem vrema}
  getdate(year,month,day,day_of_week); {poluchaem datu}
 ; {schitivaem daty,vremi,sobitia po strokam}
   if year1=year then
     if month1=month then
      if day1=day then
         if hour1=hour then
           if minute1=minute then  {sravnivaem s tekychei datoi,esli sovpadaet,to vivodim sobitie}
           writeln(sobitie);  {vivod sobitia}
      end;
    close(fil);
   end; end;
BEGIN
 counter:=0;
   gettime(hour,minute,second,milisecond);{poluchaem tekushee vrema}
  getdate(year,month,day,day_of_week);  {poluchaem tekushuu daty}
   assign(fil,'d:\f1.txt'); {svizivaem failovuu peremennuu s failon}
   reset(fil);
   while not eof(fil) do
     begin
     readln(fil,year1,month1,day1,minute1,sobitie); {shitivaem po strokam daty,vremi i sobitie iz faila}

           end;
      close(fil);
  int08;
  getintVec($8,@timeintVec); {poluchenii vectora}
  setIntVec($8,addr(int08));  {ustanovka vectora}
  keep(0); end.
 END.
triest вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Runtime error oban11 Помощь студентам 4 16.11.2010 22:47
Runtime Error ultrasfan Общие вопросы C/C++ 3 12.10.2010 16:16
Runtime Error RoS Qt и кроссплатформенное программирование С/С++ 7 06.09.2010 16:44
runtime error 2 в delphi Tina94 Общие вопросы Delphi 7 03.01.2010 21:23
Runtime error 201 mmx358 Паскаль, Turbo Pascal, PascalABC.NET 2 26.08.2009 11:38