Использование нумерации в TFields
Материал из DRKB
Использование нумерации в 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);
Source: Взято с http://delphiworld.narod.ru
ID: 02613