Firebird deki Boolean alan Delphide Nasıl

[gkimirti]

Firebird de Freeman abinin dedigi gibi olusturdugum bir domainim var

Kod: Tümünü seç

CREATE DOMAIN D_BOOL AS
SMALLINT
DEFAULT 0
CHECK (VALUE BETWEEN 0 AND 1)

delphi de bu alan(lar)ı dcheckbox ile dogrudan kullanamıyouz
kullanabilmek icin ne yapmalı, CalculatedField bana cok kaba bir cozum gibi geliyor
8 tane boolean alan var (aslında integer 0/1) bunları DbCheckBox ile kullanmak istiyorum
Nasıl bir şey yapmalıyım, siz bu gibi durumlarda ne yapıyorsunuz.

[gkimirti]

problemi su sekilde bir Domain olusturarak astim
insallah bi sorun cıkartmaz.
bir dezavantajı 1 byte yerine 5 byte israf etmis oluyoruz.
o kadarda olsun artık baska bir sey de gelmiyor aklıma

Kod: Tümünü seç

CREATE DOMAIN D_TRUEFALSE AS
VARCHAR(5) CHARACTER SET WIN1254
DEFAULT 'False'
CHECK ((VALUE IS NULL) OR (VALUE IN ('True','False')))
COLLATE WIN1254

[aslangeri]

S.A.
Delphide fieldlerin ongettext ve onsettext eventleriyle oynayarak belki bu işi halledebilirsin.
Gettext te 1 ve 0 ı true ve false çevirirsin
settext te true ve false yi 1 ve 0 a çevirirsin.
Kolya gelsin.

[name]

Halletmişsiniz ama ben biraz daha basit bir yol söylemek istiyorum.
DbCheckBox'ı direk smallint alana bağlayın ve DbCheckBox'ın value değerine "1" ve "0" değerlerini girin. Girdiğiniz sıraya göre "True" ve "False" değerleri atanıcaktır.

[gkimirti]

Saolasın arkadasım
bende yeni bir DbCheckBox yazarım belki diyordum
beni bir zahmetten kurtardın
Korluk iste
ValueChecked ve ValueUnChecked diye ozellikler ile (1/0 girilerek) yapılabiliyormus