Forksiyon LogicAlan

[xor]

Mantıksal alan olarak VarChar(1) ve 0 ve 1 kullanıyorum.

Kod: Tümünü seç

Uses IBCustomDataSet


function TForm1.LogicAlan(A: TIBStringField): Boolean;
begin
  if A.AsString = '0' Then
    Result:= False;
  if A.AsString = '1' Then
    Result:= True;
end;

Kod: Tümünü seç

    
    if LogicAlan(DataModule2.IBTable1ALANISMI) Then
      ShowMessage('True');