Solved

How to see TTimer interval

Posted on 2011-02-20
11
935 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
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 

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
 

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 37

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

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

770 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