Локальный таймер

[Anton911]

Здрасте. У меня такой вопрос, можноли создать локальный таймер?
Например, чтото типо такого:

procedure Test();
var Timer:TTimer;
begin
Timer.Enabled:=true;
Timer.OnTimer(Timer);     ///Понятия не имею как правильно делать эту строку и строки после begin.
begin
//AttackSystemTimer.enabled:=false;
Timer.Enabled:=false;
DrawMap(BitMap);
BitMap.gWindowImage.Canvas.Draw(0,0,MapBitMap);
end;
end;

Эта процедура находится в модуле, поэтому не создаю "Реальный таймер", а если делать через форму, то слишком много лишнего кода будет.
В общем отпишитесь можно ли, сделать подобное с локальным таймером, если можно то как?

[Delphi_ProGer]

можно)
1. создайте обьект таймера
2. присвойте ему процедуру, которую он будет выполнять
3. активируйте таймер(enabled:=true)

Как это "Реальный таймер"? )

[Человек_Борща]

Начьнём с того, что, что такое "Локальный" и "Реальный" таймер, в вашем понмании?

я знаю несколько таймеров:
1. TTimer в Disign-time(компонентокидательсво)
2. TTimer в run-time
3. Мультимедийный таймер.

ни первое ни третье вам не надо.
значит второе.
А там всё просто(Delphi proger прав):

var
 Timer:TTimer; //ExtCtrls в uses
begin
  Timer:=Ttimer.Create(Application);//т.к. у нас TTimer юзает WM_TIMER сообщение, то надо обязатель назначит форменного владельца. 
  Timer.Enabled:=False;
  Timer.Interval:=1000;
   Tiner.OnTimer:=@SomeProc;
end;

//а SomeProc имеет вид:
type
  TTimerProc=procedure (Sender:TObject); 

Следовательно где-то в коде:
procedure SomeProc(Sender:TObject);
begin
<Тут хоть на ушах стойте>.
end;

только правильно обьявите процедуру, на начьнёте плодить темы "Left can not be assigned to - ШО ЭТО??!!"

[Anton911]

Сообщение от Человек_Борща

Начьнём с того, что, что такое "Локальный" и "Реальный" таймер, в вашем понмании?

Итак в моем понимании:
Реальный таймер, таймер-объект, который ставится на форму на равне с другими объектами, такими как кнопка, мемо и т.д.
Локальный таймер, таймер, который находится внутри функции или процедуры (var Timer:TTimer), который сможет использовать только, та процедура в которой он объявлен.

Спасибо

[Человек_Борща]

Советую использовать понятия disign-time(Стадия проектирования проекта) и run-time(стадия выполнения целевого exe), они соответствуют "реально" и "локально", и имеют куда более широкий и правильный смысл.

[Anton911]

И еще вопросец.
Отказывается компилировать, пишет :
E2010 Incompatible types: 'TNotifyEvent' and 'Pointer'
И ссылается на строку:

Timer.OnTimer:=@SomeProc;

[Delphi_ProGer]

попробуйте убрать "собачку"

[Anton911]

Сообщение от Delphi_ProGer

попробуйте убрать "собачку"

Если убрать собачку пишет : E2009 Incompatible types: 'method pointer and regular procedure'

Пробовал сделать так:

Timer.OnTimer(@SomeProc);

Тогда компилирует, но при исполнении выдает Access Violation at adress 00000000. Read of Adress 00000000

[Serge_Bliznykov]

ваша процедура SomeProc должна быть методом формы.
вот так, например:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure SomeProc(Sender:TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sem : integer;

implementation
uses ExtCtrls;

{$R *.DFM}

procedure TForm1.SomeProc(Sender:TObject);
begin
  sem := 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Timer:TTimer; //ExtCtrls в uses
begin
  Timer:=Ttimer.Create(Application);//т.к. у нас TTimer юзает WM_TIMER сообщение, то надо обязатель назначит форменного владельца.
  Timer.Enabled:=False;
  Timer.Interval:=1000;
  Timer.OnTimer:=SomeProc;
  sem := 0;
  Timer.Enabled:=true;
  while sem = 0 do begin
    Application.ProcessMessages;
    Sleep(100);
  end;
  Timer.Enabled:=false;
  FreeAndNil(Timer);
  Application.MessageBox('All Good!','Debug',mb_OK);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  sem := 1;
end;

end.

НО! есть подозрение на X-Y-Z!
Мне АБСОЛЮТНО непонятны зачем эти танцы с бубном вокруг "локального" таймера!!!
Может быть, Вы совсем не этого хотите?!

[Anton911]

Делаю ИИ для игры. Пробовал сделать с помощью обычного таймера, но слишком много грязи вытекает при его использовании, локальный или "Run-time" мне подходит.

Щас попробую все сделать