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

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

вывод: -1 Как это токовать? минус один или дефис один?

4 ответов

17 просмотров
DELPHI SOLUTIONS- Автор вопроса
🥓 Хамон Эврибади
минус

А по чему минус, когда значение "true" - это единица?

DELPHI SOLUTIONS
А по чему минус, когда значение "true" - это един...

Это ты так думаешь, а в 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;

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

Обсуждают сегодня

У меня это всегда вопрос вызывало.. Нафига писать код так, чтобы потом ошибки вылавливать?
Nik
44
Всем привет. Сейчас я изучаю erlang по книге Erlang and OTP in action. Дошел до главы где реализуется первый gen server на примере tcp rpc сервера. Меня очень сильно смутил ко...
Freezing Death
10
что за асемблер кста?
Shvabrikk Nya
19
Добрый день! Пробую отловить исключение EConvertError: function _TryTextToDouble(var DoubleVar: Extended; Text: String): Boolean; begin try DoubleVar := StrToFloat...
Kirill Filippenok
19
всем привет. реально ли понять чем в процессе занята память? delphi/linux, процесс свой
Handatros
12
Подскажите... Есть ли название у способа разработки кода, в котором: сперва пишут минимальную рабочую структуру: Напр. ввод, обработка, вывод, контроль. Потом эту структуру д...
Budemposmotret
6
В дизассемблере вижу, что строки пихают в регистры через lea, почему так, а не через mov?
Oleg
8
А где @Grinyaha уважаемый пропал?
Am Ambrion
14
Добрый вечер. Есть вопрос, а может и предложение. Был у меня диалог в другой группе о делфи и я задался вопросом: "А нельзя ли в делфи цвет //коментария и {комментария} сде...
Kraszx
24
Сделал краткий обзор магазина из статьи и заодно там же записал инструкцию по развёртыванию. https://www.youtube.com/watch?v=8-sE1vNk95Q (чё думаете по звуку? кое-что поменял...
Andrey K
17
Карта сайта