VPF::Памагытэ - Форум программистов

Гость_Slipknot

Дата 9.7.2004, 13:00 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Я только начал учить Дельфи. Подскажите есть ли в Дельфи задержка цикла(что-то типа Delay в Паскале)? Или это через таймер как-то делается? adv/idontnow.gif

Vex

Дата 9.7.2004, 13:05 (ссылка)

(нет голосов)

Загрузка ...

кацапосрачмученiкъ

Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

Репутация: 1
Всего: 88

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Memo1.Lines.Add(IntToStr(i));
 inc(i);
end;

end.

--------------------

Слава Україні.

Maverick

Дата 9.7.2004, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1307
Регистрация: 22.9.2003
Где: Odessa, Ukraine

Репутация: 2
Всего: 10

sleep(миллисекунды), но учти, что все процессы проги замрут на это время... или бесполезный пустой цикл...

--------------------

Guest

Дата 9.7.2004, 13:20 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Vex, Maverick, спасибо, друзья!

Петрович

Дата 9.7.2004, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Цитата

sleep(миллисекунды), но учти, что все процессы проги замрут на это время... или бесполезный пустой цикл...

Ну не все процессы, а всего лишь одни поток. Тем более, что у программы всего один процесс, это она сама.
Другое дело, если это Main-поток, то "замрет" отображение и реакция на внешние воздействия.
Для очень примитивных применений можно использовать:

Код


procedure Delay (ms : Cardinal);
var StartTime : Cardinal;
begin
  StartTime := Windows.GetTickCount;
  repeat
    Application.ProcessMessages;
  until (Windows.GetTickCount-StartTime) >= ms;
end;

Но будьте аккуратны, ее использование может привести к проявлению ошибок нереентерабельности кода.

--------------------

Все знать невозможно, но хочется

December

Дата 9.7.2004, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

И, кстати, тема обсуждалась не один и не два раза.

--------------------

Для друзей с винграда - скидки на разработку сайтов

Vex

Дата 10.7.2004, 11:45 (ссылка)

(нет голосов)

Загрузка ...

кацапосрачмученiкъ

Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

Репутация: 1
Всего: 88

Цитата

нереентерабельности кода.

А что такое нереентерабельность?

--------------------

Слава Україні.

_hunter

Дата 10.7.2004, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

нереентерабельность понимается в широком смысле как
зависимость по статическим данным, требующим сериализации
доступа. Таким образом, нереентерабельной может быть как
отдельная функция, так и целая библиотека. Если несколько
участков кода обращаются к общим данным, требующим сериализации,
то все они будут взаимно нереентерабельны. В англоязычной
литературе есть более точный термин "async-signal-safe", то
есть, безопасный по отношению к асинхронным сигналам.

Это сообщение отредактировал(а) _hunter - 10.7.2004, 11:51

--------------------

Tempora mutantur, et nos mutamur in illis...

Vex

Дата 10.7.2004, 12:08 (ссылка)

(нет голосов)

Загрузка ...

кацапосрачмученiкъ

Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

Репутация: 1
Всего: 88

_hunter, ты ввел меня в еще бОльшее замешательсьтво

Пойду искать словарь

--------------------

Слава Україні.

Петрович

Дата 10.7.2004, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Цитата

нереентерабельность понимается в широком смысле как
зависимость по статическим данным, требующим сериализации
доступа.

Не только, в еще более широком.
Сейчас подробно рассказывать некогда, может вечерком постараюсь что-то рассказать и привести примеры.

--------------------

Все знать невозможно, но хочется

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »