|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2011, 22:14 | #1 |
Пользователь
Регистрация: 18.12.2010
Сообщений: 30
|
ошибка в резидентной программе
Помогите найти ошибку в программе:
{$M $800,0,0} {F+} uses crt,dos; Var timeintvecrocedure; counter,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($9c); timeintvec; Inc(counter); if (counter>(seconds*1000 div 55)) then begin counter:=0; gettime(hour,minute,second,miliseco nd); getdate(year,month,day,day_of_week) ; assign(fil,'d:\f1.txt'); reset(fil); while not eof(fil) do begin readln(fil,year1,month1,day1,minute 1,sobitie); if year1=year then if month1=month then if day1=day then if hour1=hour then if minute1=minute then writeln(sobitie); end; close(fil); end; BEGIN counter:=0; gettime(hour,minute,second,miliseco nd); getdate(year,month,day,day_of_week) ; assign(fil,'d:\f1.txt'); while not eof(fil) do begin readln(fil,year1,month1,day1,minute 1,sobitie); if year1=year then if day1=day then if hour1=hour then if minute1=minute then writeln(sobitie); end; close(fil); getintVec($8,@timeintVec); setIntVec($8,addr(int08));end; keep(0); end; END. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка в программе | Veina | Помощь студентам | 4 | 06.04.2011 21:32 |
Ошибка пв программе | aiktz | Помощь студентам | 0 | 24.10.2010 21:48 |
Ошибка в программе | misher | Общие вопросы Delphi | 12 | 01.09.2010 19:11 |
Ошибка в программе на С++ | Vikelf | Помощь студентам | 3 | 15.05.2009 15:05 |