3 3333W Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-05 #1 @@布尔型怎么转换成字符串型@@(简单吧~~ 可我就是不知道) 哈哈~
X XingHui Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-05 #2 function BoolToStr(B: Boolean UseBoolStrs: Boolean = False): string;
W wind2000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-05 #3 IntToStr(Integer(Boolean));
B beta Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-09 #4 var b: Boolean; begin b := True; ShowMessage(IfThen(b, '真', '假')); b := False; ShowMessage(IfThen(b, '真', '假')); end;
var b: Boolean; begin b := True; ShowMessage(IfThen(b, '真', '假')); b := False; ShowMessage(IfThen(b, '真', '假')); end;
R Richard3000 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-13 #5 function BooleanToStr(aBoolean:Boolean):string; begin Result:='False'; if aBoolean then Result:='True'; end;
function BooleanToStr(aBoolean:Boolean):string; begin Result:='False'; if aBoolean then Result:='True'; end;
R Richard3000 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-13 #6 function BooleanToStr(aBoolean:Boolean):string; begin Result:=ifThen(aBoolean,'True','False'); end;
L libin06 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-13 #7 综合一下。 TBSEnum = (bsEnglish, bsChinese, bsYN); function btos(b: boolean i: TBSEnum): string; const s: array[TBSEnum, boolean] of string[6] = (('False', 'True'), ('假', '真'), ('No', 'Yes')); begin result := s; end;
综合一下。 TBSEnum = (bsEnglish, bsChinese, bsYN); function btos(b: boolean i: TBSEnum): string; const s: array[TBSEnum, boolean] of string[6] = (('False', 'True'), ('假', '真'), ('No', 'Yes')); begin result := s; end;
雪 雪中漫步 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-13 #9 function BoolToStr(B: Boolean UseBoolStrs: Boolean = False): string; 帮助里有！
