extras/tiopf/demos/Common/Constants.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14

unit Constants;

{$mode objfpc}{$H+}

interface

const
  cNameMissing = 'Please enter a name';
  cAgeOutofRange = 'Please enter a valid age between 1 - 100';


implementation

end.