unit GlobalRoutines; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, ..., ...; procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec, MSec: Word); ... var Var1, Var2, Var3: string; DoIt: Boolean; ... const CR = #13; // "Enter" key, "Carriage Return" CRLF = #13#10; // Carriage Return + LineFeed implementation procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec, MSec: Word); begin ... end; ... end. Note that you have to define all constants, variables, procedures and functions
that you want to call from other units, in the interface section of
the unit ! |
|
DC Library
FAQ
Crash Course Delphi Tips Source
Code Downloads Links
© Copyright 1999-2019
DelphiLand