Solved

How to see TTimer interval

Posted on 2011-02-20
11
930 Views
Last Modified: 2012-05-11
count down in TEdit?
0
Comment
Question by:pr2501
  • 6
  • 4
11 Comments
 
LVL 24

Expert Comment

by:jimyX
ID: 34936968
What do you mean by seeing the Timer interval?
If you set the timer interval to 1000 ms (1 second) then:
Edit1.Text := IntToStr(Timer1.Interval);

Open in new window


For counting down:
var  // global variable
  i:integer=20; // the number that you want to count down from
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text := IntToStr(i);
  dec(i);
  If i = 0 then
    Timer1.Enabled := False; // to stop counting
end;

Open in new window

0
 

Author Comment

by:pr2501
ID: 34937066
If i set timer interval to 10000 ms. On timer event after 10 s specific code will be executed.

A need to know  how much time i have less until timer time will be elapsed.
0
 
LVL 24

Accepted Solution

by:
jimyX earned 250 total points
ID: 34937248
Well you can go this way:
Set your timer interval to 1000 ms:
var  // global variable
  i:integer=10000;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text := IntToStr(i div 1000);
  dec(i,1000);
  If i = 0 then
    begin
      i := 10000;
      //your code that you want to execute every 10000 goes here
    end;
end;

Open in new window

0
 

Author Comment

by:pr2501
ID: 34938070
Ok, thank you.

Can You explain me just another thing.

Will timer event on interval interrupt another  task which was running at that moment.
And the task will continue after timer code will be executed?
0
 
LVL 24

Expert Comment

by:jimyX
ID: 34938288
>> Will timer event on interval interrupt another  task which was running at that moment.
No, whatever you have in the Timer event will run concurrently with the other code that you might have.
For example if you have ListBox, Button and Timer on a form: The Timer running as per the above code and you have pressed a button that has the following code:
procedure TForm1.Button1Click(Sender: TObject);
var
  j:integer;
begin
  for j := 1 to 30000 do
    begin
      ListBox1.Items.Add(inttostr(j));
      ListBox1.Selected[ListBox1.Items.Count-1] := true;
      Application.ProcessMessages;
    end;
end;

Open in new window

Then you get the Timer count down while the ListBox adds the loop counter.
0
What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

 

Author Comment

by:pr2501
ID: 34938323
Thank you very much
0
 

Author Comment

by:pr2501
ID: 34938436
Try next code with two TListbox, TButon and TTimer.
They are not ruining   together?
procedure TForm4.Button1Click(Sender: TObject);
var
  j:integer;
begin
//timer1.Enabled:=false;
  for j := 1 to 30000 do
    begin
      ListBox1.Items.Add(inttostr(j));
      ListBox1.Selected[ListBox1.Items.Count-1] := true;
      Application.ProcessMessages;
    end;
end;

procedure TForm4.Timer1Timer(Sender: TObject);
var
  k:integer;
begin
  for k := 1 to 30000 do
    begin
      ListBox2.Items.Add(inttostr(k));
      ListBox2.Selected[ListBox2.Items.Count-1] := true;
      Application.ProcessMessages;
    end;
end;

Open in new window

0
 

Author Comment

by:pr2501
ID: 34938466
pleas use also in attached code below:
timer1.Enabled:=false;
procedure TForm4.Timer1Timer(Sender: TObject);
var
  k:integer;
begin
 timer1.Enabled:=false;
  for k := 1 to 30000 do
    begin
      ListBox2.Items.Add(inttostr(k));
      ListBox2.Selected[ListBox2.Items.Count-1] := true;
      Application.ProcessMessages;
    end;

end;
end.

Open in new window

0
 
LVL 36

Expert Comment

by:Geert Gruwez
ID: 34939285
not really the way to go, and especially not with application.processmessages

the article i wrote about the progressbar and a thread should be a lot better than this
0
 
LVL 24

Expert Comment

by:jimyX
ID: 34966999
I should have been more clear on my answer about the concurrent processing through the Timer.
Timer can work concurrently (as i shown in my last post) but it can not work like threads. Timer can accomplish Background Processing or Multitasking but it can not perform Multithreading.
0
 

Author Comment

by:pr2501
ID: 34967693
I understand.
Now is not necsessary  for me to study Multithreading.

(But sill it would be of help if i could see how much time remains of timer time in TEdit
(like count down).)

Thank you


0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now