[Ale[_I_]a]

есть оператор типа Delay(в паскале это пауза была, в скобках задержка в мсек)?

[ApxaHGe1]

Windows.SleepEx(200,false)

[Vayrus]

Сообщение от Ale[_I_]a

есть оператор типа Delay(в паскале это пауза была, в скобках задержка в мсек)?

Sleep(1000);//Задержка в 1 сек

[Asinkrit]

Код:

procedure _Delay(dwMilliseconds: Longint);
 var
   iStart, iStop: DWORD;
 begin
   iStart := GetTickCount;
   repeat
     iStop := GetTickCount;
     Application.ProcessMessages;
   until (iStop - iStart) >= DWORD(dwMilliseconds);
end;

[einstein]

загрузка процессора на 100% будет выглядеть не красиво

[Bars1992]

Так более красивее

PHP код:

unit Unit1;

interface

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

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TMyDelay=class(TTimer)
   private
   procedure OnReady(sender:Tobject);
   public
   delay:integer;
   ready:boolean;
   constructor Create(time:integer);
   procedure Start;
   end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

{ TMyDelay }

constructor TMyDelay.Create(time: integer);
var
m:tmethod;
begin
inherited create(nil);
enabled:=false;
delay:=time;
ready:=false;
OnTimer:=onReady;
end;

procedure TMyDelay.OnReady(sender: Tobject);
begin
ready:=true;
enabled:=false;
end;

procedure TMyDelay.Start;
begin
interval:=delay;
enabled:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
m:TMyDelay;
begin
m:=TMyDelay.Create(1000);
m.Start;
while not m.ready do application.ProcessMessages;
showmessage('Прошла одна секунда!');
end;

end. 


[Страдалецъ]

Вот как раз такой код:

Код:

while not m.ready do application.ProcessMessages;

даст загрузку процентов в 30 на пустом месте, а всего-то и надо добавить одну масенькую инструкцию.

Код:

while not m.ready 
do begin
    Sleep(1);
    application.ProcessMessages;
    end;

[Bars1992]

Страдалецъ всё генеальное просто) Как то и не думал об этом пути) Опыт это великая сила)