You've already forked lazarus-ccr
17 lines
243 B
ObjectPascal
17 lines
243 B
ObjectPascal
|
unit uOptionConst;
|
||
|
|
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
const
|
||
|
|
goOptGroupCurrent = 'GroupCurrent';
|
||
|
|
goOptSubGroupCurrent = 'SubGroupCurrent';
|
||
|
|
goOptDealerCurrent = 'DealerCurrent';
|
||
|
|
goOptWorkerCurrent = 'WorkerCurrent';
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|
||
|
|
|