Советы по Delphi
Использование нумерации в TFields
Я хочу хранить журнал транзакций в таблице Paradox и хотел бы писать и читать коды транзаций вместо простых целых чисел, которые они представляют в данный момент...
Можете попробовать сделать так:
| type Tcodes = (c1,c2,c3,c4); var code: Tcodes; code := Tcodes(Table1Field1.AsInteger);if code in [c2,c4] then .....Table1Field1.AsInteger := Integer(code); |
- Mike Orriss [000973]
