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

Советы » Записи, индексы, поля, закладки » Использование нумерации в 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);

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com