| 1 | unit Data;
|
|---|
| 2 | interface
|
|---|
| 3 | uses Classes, Graphics, TypeDefs;
|
|---|
| 4 |
|
|---|
| 5 | const
|
|---|
| 6 | Version: String = 'v0.34a';
|
|---|
| 7 | DBVersion: String = '0.3';
|
|---|
| 8 | CrLf: String[2] = #13 + #10;
|
|---|
| 9 |
|
|---|
| 10 | var
|
|---|
| 11 | AppSettings: TAppSettings;
|
|---|
| 12 | AppSettingsFile: file of TAppSettings;
|
|---|
| 13 |
|
|---|
| 14 | {
|
|---|
| 15 | const
|
|---|
| 16 | header_ident1_pc:Array[0..$13] of Byte=
|
|---|
| 17 | ($1F,$27,$DC,$33,$DF,$BC,$03,$00,$31,$33,$52,$56,$40,$00,$14,$00,$10,$00,$08,$00);
|
|---|
| 18 | header_ident1_mac:Array[0..$13] of Byte=
|
|---|
| 19 | ($61,$30,$C1,$23,$DF,$BC,$03,$00,$31,$33,$52,$56,$40,$00,$14,$00,$10,$00,$08,$00);
|
|---|
| 20 | header_ident2:Array[0..$F] of Byte=
|
|---|
| 21 | ($99,$CF,$40,$00,$90,$4F,$63,$00,$F4,$55,$5F,$00,$90,$4F,$63,$00);
|
|---|
| 22 | }
|
|---|
| 23 |
|
|---|
| 24 | implementation
|
|---|
| 25 |
|
|---|
| 26 | end.
|
|---|
