Использование нумерации в TFields

Previous  Top  Next

    
 

 

 

Я хочу хранить журнал транзакций в таблице Paradox и хотел бы писать и читать коды транзаций вместо простых целых чисел, которые они представляют в данный момент...

 

Можете попробовать сделать так:

 

Code:

type Tcodes = (c1,c2,c3,c4);

 

var code: Tcodes;

 

code := Tcodes(Table1Field1.AsInteger);

if code in [c2,c4] then .....

Table1Field1.AsInteger := Integer(code);

 

 

©Drkb::02613

       

Взято с http://delphiworld.narod.ru