Автор: Сергей
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Преобразование boolean в строку для SQL-сервера

Преобразование boolean в строку для SQL-сервера

Зависимости: ???
Автор:       Сергей, nfkazak@inbox.ru, Краснодар
Copyright:   VIP BANK
Дата:        11 сентября 2002 г.
***************************************************** }

function SQL_Boolean_String(Value: boolean): string;
begin
  if Value then
    Result := '1'
  else
    Result := '0'
end;