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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2011, 22:14   #1
triest
Пользователь
 
Регистрация: 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.
triest вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка в программе 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