布尔型如何转换成字符型？

Question

呵呵，写if语句了.
/*************************************/
/*1、MY TOOL:*************************/
/*2、Delphi,Oracle,Sybase,C++/C*******/
/*3、PROJECT:*************************/
/*3、Boss*****************************/
/*4、为了五星的目标希望你早点结贴*****/
/*************************************/
下为我公司中餐定购点，大家随意随意.....
巴西小吃部：13033009888
阿根廷川味：13003059999
韩国料理城：3663371
英格兰拉面：3635476
西班牙火锅：3661693
中国大排挡：13956948888

Answer 1

case adochaxun.Fields[0].AsBoolean of
true:booltostr(adochaxun.Fields[0].AsBoolean):='1';
false:booltostr(adochaxun.Fields[0].asboolean):='0';
end;
提示错误，该怎样写？

Answer 2

IntToStr(Ord(老兄：这里放你的布尔变量))
IntToStr(Ord(老兄：这里放你的布尔变量))

Answer 3

var
    a:boolean;
    b:string;
begin
...    if a then then b:='1' else b:='0';

Answer 4

function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;

Answer 5

好象老是来晚
================================================================
一颗红心向前看，为了革命两茫然，不好意思才囊尽，只能说上一点点。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★    我踢  我踢   我踢  我踢  我踢  我踢  我踢  我踢  我踢   ★
★    你UP  你UP   你UP  你UP  你UP  你UP  你UP  你UP  你UP   ★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================

Answer 6

BoolToStr() 是Delphi6的函数
如果你使用的是Delphi5，请参考
const
  cBoolStr: array[Boolean] of string = ('False', 'True');
begin
  Caption := cBoolStr[DayOfWeek(Date) = 1];
end;