Код:
procedure Timer1OnTimer(Sender:TObject);
begin
Timer1.Enabled:=False;
SomeWork(somedata);
Timer1.Enabled:=True;
end;
оно?
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.
Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
|