Static Variable in Delphi...

One time I was discussing with a .Net programmer about static variables. Then I tried to declared a static variable in Delphi. But I could not. Because there no keyword 'Static' in Delphi. So I searched found 'Typed Constant' which act as static variable in Delphi.

By default Delphi doesn't allow static variables, it only allows static methods, functions and properties. 

But we can use typed constant to declare a static variable in Delphi. 
That will work as like static variable in C# that keep their value between routine calls.
But this facility was available in Delphi 16 bit version i.e in Delphi 1 which is disappeared in Delphi 32 version.
But for backward compatibility still Delphi has an option 'Assignable Typed Constant' option in compiler tab of project option.
Project Menu -> Option -> Compiler Tab -> Assignable Typed Constant 
You need to check this option for use such facility else you will get following error.
"[Error] Unit1.pas(30): Left side cannot be assigned to "

How to use..?
Procedure TForm1.Button1Click(Sender: TObject);
const 
  Counter: integer = 0;
begin   
  Counter := Counter + 1;
  Showmessage(intostr(Counter));
end;

Or

Procedure TForm1.Button1Click(Sender: TObject) ; 
const 
{$J+}    
clicks : Integer = 1; //not a true constant
{$J-} 
begin   
Form1.Caption := IntToStr(clicks) ;   
clicks := clicks + 1; 
end;
For use like 2nd part you have to user {$J+}.  At staring of program 1 will be assigned to clicks. Then for rest it will be a integer parameter and value will maintain through out the program.



This technique can be used for count number of instances of a class, for count how many number of time an event is fired. 

Comments

Post a Comment

Popular posts from this blog

How to send Email in Delphi?

Today in most of software program it is required to send mail to others with attached data. As some time we need to update clients about their account details, status or any other information through mail. So Delphi provides so many easiest ways to send mail from our Delphi application. I have collected some of ways which are very useful for Delphi developers. In Delphi we don't required any third party components to send mails. We can send mail to single or group of peoples with CC, BCC and attachments. Even we can send HTML mails from Delphi. So here are the ways... 1. ShellExecute Sends Email using default mail client software installed on user's system. But it will not work with attachment for every mail client. And you have to use ShellAPI unit in uses list. ShellExecute(Self.Handle,              nil,              'mailto:' +              'jiten.g.s001@gmail.com' +   ...
Read more

Difference between Refresh, repaint, Update and Invalidate in Delphi

Refresh  - Repaints the control on the screen. Call Refresh method to repaint the control immediately. Refresh calls the Repaint method. Use the Refresh and Repaint methods interchangeably. Repaint  - Forces the control to repaint its image on the screen. Call Repaint to force the control to repaint its image immediately. If the ControlStyle property includes csOpaque, the control paints itself directly. Otherwise, the Repaint method calls the Invalidate method and then the Update method so that any visible portions of controls beneath the control will be repainted as well. Update  - Processes any pending paint messages immediately. Call Update to force the control to be repainted before any more, possibly time-consuming, processing takes place. Use Update to provide immediate feedback to the user that cannot wait for the Windows paint message to arrive. Update does not invalidate the control, but simply forces a repaint of any regions that have already been invalidated. ...
Read more

Pointers In Delphi

Every data we use in an application is stored somewhere in the computer's memory. And a Pointer is a variable that stores a address of memory piece  where we store data, like in Delphi "a string is really just a pointer" or "an object is really just a pointer" or "event  handler such as OnClick is actually a pointer to a procedure". They allow direct access to memory, enabling complex data structures to be built and navigated. The advantages are: We can set that memory size as per our requirement In case of copy value of a variable from one to another we just need to change a pointer to point to a different address of memory which saved lots of time When we use Pointers The most common use for pointers in Delphi is when calling Windows APIs. Windows API functions use a number of data types that may be unfamiliar to the Delphi programmer. Most of the parameters in calling API functions are pointers to some data type.  Most of the time pointers in Delphi...
Read more