Использование нумерации в TFields
Я хочу хранить журнал транзакций в таблице Paradox и хотел бы писать и читать коды транзаций вместо простых целых чисел, которые они представляют в данный момент...
Можете попробовать сделать так:
typeTcodes = (c1,c2,c3,c4);
var code: Tcodes;
code := Tcodes(Table1Field1.AsInteger);
if code
in [c2,c4]
then .....
Table1Field1.AsInteger := Integer(code);
Взято из
Содержание Назад Вперед
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий