[Back to DATATYPE SWAG index] [Back to Main SWAG index] [Original]

    {
    >I have a question about Typed Constants.  By this I mean the
    >following declaration:
    >
    >  Const
    >    Example : Byte = 1;
    >
    >What are the advantages to this?

      ...One of the advantages to using "Typed Constants", is that it
      allows you to initalize Variables at CompILE-TIME (ie: When you
      Compile your source-code into an .EXE), instead of RUN-TIME.
      (ie: When your Program is actually running.)

      ...Another advantage is that "Typed Constants" within Functions/
      Procedures keep their data between calls.
    }

    Procedure SaveData({input} Var DataBuffer : byar_Data);
    Const
      bo_FileOpen : Boolean = False;
    begin
      if (bo_FileOpen = False) then
        begin
          assign(fi_Data, st_DataName);
          {$I-}
          reset(fi_Data, 1);
          {$I+}
          Check_For_IO_Error;
          bo_FileOpen := True
        end;
      blockWrite(fi_Data, DataBuffer, sizeof(DataBuffer));
      Check_For_IO_Error
    end;

    {
      ...The Procedure above would only open the data-File once,
      and all Repeat calls to this Procedure would just Write
      there data to the File. (ie: The Boolean "Typed-Constant"
      bo_FileOpen would only be False the first time this routine
      executed. The next time this routine executed bo_FileOpen
      would be equal to True.)
    }

[Back to DATATYPE SWAG index] [Back to Main SWAG index] [Original]