home bbs files messages ]

Just a sample of the Echomail archive

Cooperative anarchy at its finest, still active today. Darkrealms is the Zone 1 Hub.

   PASCAL      Pascal programming language discussions      592 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 418 of 592   
   mark lewis to Dan Richter   
   Lazarus and FPC   
   13 Jun 18 12:54:28   
   
    On 2018 Jun 11 19:53:20, you wrote to All:   
      
    DR> Is there a way to use the Lazarus version number set up in the Project   
    DR> Options -=> Version Info, as a variable in the code?   
      
   do you mean for something like this??   
      
     myProgram DEBUG version 0.7.7.3 [2015/03/29 04:00:54]   
     Compiled with FPC 2.6.4 for OS2 running on i386   
      
   i do it with the following code...   
      
   ----->8 snip 8<-----   
   procedure TMyApplication.WriteVersion;   
      
   begin   
     writeln;   
     writeln(prog_name + {$IFDEF DEBUG} ' DEBUG' + {$ENDIF} ' version ' + prog_ver   
    + ' [' + {$I %DATE%} + ' ' + {$I %TIME%} + ']');   
     writeln('Compiled with FPC ' + {$I %FPCVERSION%} + ' for ' + {$I   
   %FPCTARGETOS%} + ' running on ' + {$I %FPCTARGETCPU%});   
     writeln('Copyright (c) 2011-2014, Quartz Crystal Software');   
     writeln('All Rights Reserved');   
     writeln;   
   end;   
   ----->8 snip 8<-----   
      
      
   i am not aware of any way to put the Lazarus version in... it isn't as   
   important as the compiler (aka FPC) version...   
      
      
   )\/(ark   
      
   Always Mount a Scratch Monkey   
   Do you manage your own servers? If you are not running an IDS/IPS yer doin' it   
   wrong...   
   ... Always obey your superiors... if you have any. - Mark Twain   
   ---   
    * Origin:  (1:3634/12.73)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca