Использование нумерации в 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