Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];

Вниз

Глюк компилятора или я уже переработал?   Найти похожие ветки 

 
vidiv ©   (2006-10-01 12:08) [0]

простой такой код:

program sleep;
{$APPTYPE CONSOLE}
uses Windows;
var I, T:Integer;
begin
   Val(ParamStr(1), I, T);
   if T = 0 then
       Sleep(I)
   else
       Writeln("Invalid parametr");
end.


У меня компилятор ругается:
[Error] sleep.dpr(8): "." expected but "(" found

на строку:
       Sleep(I)


 
Zeqfreed ©   (2006-10-01 12:16) [1]

program sleep;
{$APPTYPE CONSOLE}
uses Windows;
var I, T:Integer;
begin
  Val(ParamStr(1), I, T);
  if T = 0 then
      Sleep(I)
  else
      Writeln("Invalid parametr");
end.


Лечим приписыванием Windows. перед вызовом Sleep.


 
vidiv ©   (2006-10-01 12:21) [2]

Забыл сказать, что D8...


> Лечим приписыванием Windows. перед вызовом Sleep.

Понятное дело, я так и сделал, но всеже должно и так работать


 
Zeqfreed ©   (2006-10-01 12:27) [3]

> [2] vidiv ©   (01.10.06 12:21)


> Понятное дело, я так и сделал, но всеже должно и так работать

Не работает же, значит не должно.


 
Чапаев ©   (2006-10-01 12:40) [4]

> должно и так работать

Можешь обосновать, почему "должно"?


 
Юрий Зотов ©   (2006-10-01 14:14) [5]

> vidiv ©   (01.10.06 12:21) [2]
> должно и так работать

По всем канонам - не должно. Идентификатор Sleep в заголовке программы заслоняет собой такой же идентификатор в модуле Windows.


 
isasa ©   (2006-10-01 14:33) [6]

В текушем юните имя sleep описано как - program sleep - без параметров, поэтому имеем
[Error] sleep.dpr(8): "." expected but "(" found.

Для использования Sleep из модуля Windows необходимо указывать его полное имя(Windows.Sleep ).
Кто глючит?


 
TUser ©   (2006-10-01 16:43) [7]

Можно еще закомментировать первую строчку программы


 
vidiv ©   (2006-10-01 17:04) [8]

спасибо, все понял... я переработал начит =)



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.042 c
2-1160376880
Roman_ln
2006-10-09 10:54
2006.10.22
в проекте формы создал новую процедуру...


15-1159780948
Чапаев
2006-10-02 13:22
2006.10.22
NetBIOS-имя домена


1-1157909867
Calibr
2006-09-10 21:37
2006.10.22
WM_SETICON


2-1159794490
Зацени
2006-10-02 17:08
2006.10.22
Задачка


15-1159286723
nomen
2006-09-26 20:05
2006.10.22
Как бы сделать обогрев клавиатуры





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский