[SOLVED] dependency initialization problem

[ndrx]

Hello,

I have a problem with the initialization of a variable in a constructor of a class.

The variable is a TDateTime and I want to initialize it with value Now (from unit DateUtils) but it is not possible, the compiler is complaining  :

Error: Identifier not found "now"

I know it's a basic problem but I already searched for information on the web and I don't find anything.

Thank you for your help.

[tudi_x]

hi,
if you could share some code.

Code: Pascal  [Select][+][-]

1. Form1.Caption:= FormatDateTime('hh',now);  

works for me.

[balazsszekely]

@ndrx
Add sysutils to the uses clauses.

[ndrx]

@tudi_x
here is my code :

Code: Pascal  [Select][+][-]

1. unit myunit;
2. {$mode objfpc}  
3. {$codepage UTF8}
4.  
5. interface
6.  
7. uses Classes, dateutils, sysutils;
8.  
9. var
10.         INITIAL_DATE : TDateTime;
11.  
12. type Test1 = class
13.         private
14.                 time : Int64;
15.         public
16.                 constructor create();
17. end;
18.  
19. implementation
20.  
21.         constructor Test1.create();
22.         begin
23.                 time = MilliSecondsBetween(INITIAL_DATE, now);
24.         end;
25.  
26. initialization
27. begin
28.         INITIAL_DATE := scanDateTime('DDMMYYYY', '01011900');
29. end;
30.  
31. end.
32.  

@GetMem
I added sysutils but I have the same problem.

[balazsszekely]

No! You don't have the same problem. Before sysutils the error was: "Identifier not found: now". After you add sysutils the error is "Illegal expression". You need ":=" instead of "=".

Code: Pascal  [Select][+][-]

1. constructor Test1.create();
2. begin
3.    time := MilliSecondsBetween(INITIAL_DATE, now);
4. end;

[ndrx]

Sorry, you're right! It's not the same problem...

[Bart]

Nitpicking a little, but:

Code: Pascal  [Select][+][-]

1. begin
2.         INITIAL_DATE := scanDateTime('DDMMYYYY', '01011900');
3. end;
4.  

Why not

Code: Pascal  [Select][+][-]

1.   INITIAL_DATE := EncodeDate(1900,1,1);
2.  

Or just calculate that value once and include it as a constant in your sourcecode.

Bart

[ndrx]

@GetMem
Ok, my problem is solved! Thank you very much!

@Bart
Thank you for your advice :-)