1:
2:
3:
4:

IF (Demo AND (DataSet.Count > 10)) THEN BEGIN
      ShowMessage('Der neue Datensatz kann nicht angelegt werden, da bereits mehr als 10 Datensätze angelegt wurden.');
      Dataset.Cancel;
END;                    

1:
2:

CONST
  Demo = TRUE {FALSE};                    

1:

IF Demo THEN                    

1:
2:

CONST 
  Demo = TRUE {FALSE};                    

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

unit uConst;

interface

CONST
  // Liegt eine Demoversion vor
  Demo = TRUE {FALSE};

  // Zeitkonstanten zur einfacheren Arbeit mit tDateTime (nur als Beipiel für weitere Konstanten)
  zei_hour = 1/24;
  zei_min = Zei_Hour / 60;
  zei_Sec = Zei_Min / 60;

implementation

end.                    

1:
2:
3:
4:

implementation
{$R *.DFM}
uses
  uConst;                    

1:

IF DEMO THEN                    

1:
2:
3:
4:

IF (DataSet.Count > 10) THEN BEGIN 
      ShowMessage('Der neue Datensatz kann nicht angelegt werden, da bereits mehr als 10 Datensätze angelegt wurden.'); 
      Dataset.Cancel; 
END;                    

1:
2:
3:
4:
5:
6:
7:
8:

Funtion IsDemo: Boolean;
Begin
{$IFDEF DEMOEDITION}
  IsDemo := True;
{$ELSE}
  IsDemo := False;
{$ENDIF}
End;