Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Запуск по таймеру   Найти похожие ветки 

← →
_hunter_   (2003-02-01 15:07) [0]

Здравствуйте.

Есть такой класс:

type THTTPClientThread = class (TThread)
private
protected
procedure Execute; override;
public
function Calc:Extended;
end;
Как сделать чтобы функция Calc запускалась по таймеру?

---

← →
uw ©   (2003-02-01 15:20) [1]


procedure THTTPClientThread.Execute;
var
Timer: TTimer;
begin
Timer := TTimer.Create(nil);
Timer.Interval := YourInterval;
Timer.OnTimer := TimerOnTimer;
Timer.Enabled := True;
try
while NOT Terminated do begin
// Thread does anything
end;
finally
Timer.Free;
end;
end;

procedure THTTPClientThread.TimerOnTimer(Sender: TObject);
var
ext := Extended;
begin
ext := Calc;
end;


---

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

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.02 c