Текущий архив: 2007.06.24;
Скачать: 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 вся ветка
Текущий архив: 2007.06.24;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.014 c
