Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Использование нумерации в TFields

Автор: Pakshin A. S. 13.11.2004, 14:54

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

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

Код


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

var code: Tcodes; 

code := Tcodes(Table1Field1.AsInteger); 
if code in [c2,c4] then ..... 
  Table1Field1.AsInteger := Integer(code);