Скачать: CL | DM;

Вопрос про Delay   Найти похожие ветки 

← →
vegarulez ©   (2007-06-04 08:51) [0]

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

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

---

← →
PZ   (2007-06-04 08:57) [1]

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

---

← →
Anatoly Podgoretsky ©   (2007-06-04 09:00) [2]

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

Ничего

---

← →
vegarulez ©   (2007-06-04 09:06) [3]

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

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

---

← →
vegarulez ©   (2007-06-04 09:17) [4]

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

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.

---

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

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

---

← →
PZ   (2007-06-04 09:28) [6]

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

---

← →
PZ   (2007-06-04 10:00) [7]

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

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

---

← →
vegarulez ©   (2007-06-04 10:44) [8]

Сергей М. ©   (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]  это видно

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

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

---

← →
vegarulez ©   (2007-06-04 10:48) [9]

PZ   (04.06.07 10:00) [7]

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c