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

Автор: Mike Orriss

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

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

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

var code: Tcodes;

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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 408 • TDictionary Custom Sort 3 531 • Fast Watermark Sources 3 270 • 3D Designer 5 034 • Sik Screen Capture 3 528 • Patch Maker 3 735 • Айболит (remote control) 3 939 • ListBox Drag & Drop 3 190 • Доска для игры Реверси 83 094 • Графические эффекты 4 152 • Рисование по маске 3 421 • Перетаскивание изображений 2 795 • Canvas Drawing 2 958 • Рисование Луны 2 745 • Поворот изображения 2 369 • Рисование стержней 2 241 • Paint on Shape 1 642 • Генератор кроссвордов 2 327 • Головоломка Paletto 1 833 • Теорема Монжа об окружностях 2 350 • Пазл Numbrix 1 726 • Заборы и коммивояжеры 2 108 • Игра HIP 1 319 • Игра Go (Го) 1 273 • Симулятор лифта 1 519 • Программа укладки плитки 1 264 • Генератор лабиринта 1 596 • Проверка числового ввода 1 409 • HEX View 1 554 • Физический маятник 1 396