| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос про Delay [D6, XP]

vegarulez ©   (2007-06-04 08:51:00) 

привет Всем мастерам!
Подскажите что нужно включить в  uses, из стандартной комплектации Delphi,  чтобы избавиться от этого :
Undeclared identifier: 'Delay'

На работе помню скомпилил... что-то там в Юзез добавив, а что ... не могу вспомнить...

---

vegarulez   (2007-06-04 10:48:00) [1]

PZ   (04.06.07 10:00) [7]

Да в этом было дело.

Забыл вставить вот эту строку {$APPTYPE CONSOLE}

---

vegarulez   (2007-06-04 10:44:00) [2]

Сергей М. ©   (04.06.07 09:26) [5]
http://www.sources.ru/pascal/datetime/wait.htm
Осень на работе компилили в D6 заменив в Юзез что-то не помню что точно, и поменяв Delay на Sleep

PZ   (04.06.07 09:28) [6]
И при нажатии Ctrl понятно что Uses  Sysutils;
в приведённом коде vegarulez ©   (04.06.07 09:17) [4]  это видно

Вопрос в другом я этот код компилю - эксешник выходит... но когда с батника - запускаю вылазиет ошибка...

А осенью скомпилинный экзек нормально работает...

---

PZ   (2007-06-04 10:00:00) [3]

О, я сразу не обратил внимание: Это же консольная программа.

После строки
Program wait;
надо вставить
{$APPTYPE CONSOLE}

---

PZ   (2007-06-04 09:28:00) [4]

Выдели Sleep и нажми F1. В справке увидишь нужный модуль

---

Сергей М.   (2007-06-04 09:26:00) [5]

Это же не консольное приложение, какой может быть Write() ?

---

vegarulez   (2007-06-04 09:17:00) [6]

Но только вот что-то не хотить правильно работать...
всё-таки в юзез что-то добавить наверно надо... ругается... и вылетает на ошибке...

Program wait;
Uses  Sysutils;
Const
ErrStr = 'Usage: wait time_to_wait_in_seconds [-quiet]';
Var
i, j, err : integer;
be_quiet : boolean;
Begin
if ( ParamStr(1) = '' ) then
begin
 Writeln( ErrStr );
 Halt;
end;
Val( ParamStr( 1 ), i, err );
if ( err <> 0 ) then
begin
 Writeln( ErrStr );
 Halt;
end;
if ( ParamStr( 2 ) = '-quiet' ) then
 be_quiet := true
else
 be_quiet := false;
for err := i downto 1 do
begin
 if ( not be_quiet ) then
  Write( '                                                         '#13 +
         'Sleeping for ', err, ' second(s)...'#13 );
 sleep( 1000 );
end;
End.

---

vegarulez   (2007-06-04 09:06:00) [7]

PZ   (04.06.07 08:57) [1]
Delay - это в Pascal, а в Delphi надо Sleep() использовать

Ахха... я вспомнил... именно так и заменил....

---

Anatoly Podgoretsky   (2007-06-04 09:00:00) [8]

> vegarulez  (04.06.2007 08:51:00)  [0]

Ничего

---

PZ   (2007-06-04 08:57:00) [9]

Delay - это в Pascal, а в Delphi надо Sleep() использовать

---

Наверх