Всем привет! Странный вывод: ShowMessage(Boolean(true).ToString)

Это ты так думаешь, а в Delphi и FPC думают иначе :) procedure CheckBoolStrs; begin If Length(TrueBoolStrs)=0 then begin SetLength(TrueBoolStrs,1); TrueBoolStrs[0]:='True'; end; If Length(FalseBoolStrs)=0 then begin SetLength(FalseBoolStrs,1); FalseBoolStrs[0]:='False'; end; end; function BoolToStr(B: Boolean;UseBoolStrs:Boolean=False): string; begin if UseBoolStrs Then begin CheckBoolStrs; if B then Result:=TrueBoolStrs[0] else Result:=FalseBoolStrs[0]; end else If B then Result:='-1' else Result:='0'; end; // from textmode IDE util funcs. function BoolToStr(B: boolean; const TrueS, FalseS: string): string; begin if B then Result:=TrueS else BoolToStr:=FalseS; end;

0

17.07.2023

🥓 Хамон Эврибади · Accepted Answer

🥓 Хамон Эврибади

минус

0

17.07.2023

169 похожих чатов

Всем привет! Странный вывод: ShowMessage(Boolean(true).ToString)

4 ответов

Похожие вопросы