ReSQL.ru
     
powered by simpleCommunicator - 2.0.37     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вернуть boolean из сравнения
15 сообщений из 15, страница 1 из 1
Вернуть boolean из сравнения
    #40092097
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Законно ли так использовать boolean() при любом сравнении или могут быть подводные камни?

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
type
  TSelct = (slOne, slTwo);
...
procedure myProc();
var
  slt: TSelct;
begin
  slt := slOne; 
  lab1.Visible := boolean(slt = slOne);
...
Рейтинг: 0 / 0
20.08.2021, 07:15
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092098
iStrannik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iStrannik
Гость
Законно для условных операторов только зачем?
Масло масленое, можно сразу написать
lab1.Visible := slt = slOne;

Обертки вроде Boolean() и т.д. нужны когда нужно явно компилятору указать
о приведении к определенному типу.
...
Рейтинг: 0 / 0
20.08.2021, 07:33
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092192
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
antox
Законно ли так использовать boolean() при любом сравнении или могут быть подводные камни?
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
type
  TSelct = (slOne, slTwo);
...
procedure myProc();
var
  slt: TSelct;
begin
  slt := slOne; 
  lab1.Visible := boolean(slt = slOne);

не, не, не!
надо так:
Код: pascal
1.
lab1.Visible := not LongBool(slt);


зы: индусы и не такое пишут...
...
Рейтинг: 0 / 0
20.08.2021, 12:03
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092220
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
[quot Мимопроходящий#22362166]
antox
Законно ли так использовать boolean() при любом сравнении или могут быть подводные камни?
Код: pascal
1.
lab1.Visible := not LongBool(slt);


зы: индусы и не такое пишут...


Код: pascal
1.
2.
3.
4.
5.
6.
if slt = slOne then begin
  lab1.Visible := true;
end
else begin
  lab1.Visible := false;
end;
...
Рейтинг: 0 / 0
20.08.2021, 13:15
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092232
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
antox
Законно ли так использовать boolean() при любом сравнении или могут быть подводные камни?


Очень опасно: можно попасть в патологическую рекурсию:

Код: pascal
1.
  lab1.Visible := boolean(......boolean(slt = slOne).....);


Зачем писать приведение к типу, если выражение и так имеет требуемый тип?
...
Рейтинг: 0 / 0
20.08.2021, 13:31
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092234
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
20.08.2021 13:31, x1ca4064 пишет:
> Зачем писать приведение к типу, если выражение и так имеет требуемый тип?

ну, во-первых, это красиво.. ©
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
20.08.2021, 13:33
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092235
Barmaley57
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Barmaley57
Участник
[quot DimaBr#22362210]
Мимопроходящий
пропущено...


Код: pascal
1.
2.
3.
4.
5.
6.
if slt = slOne then begin
  lab1.Visible := true;
end
else begin
  lab1.Visible := false;
end;


Код: pascal
1.
2.
3.
4.
5.
6.
if (slt = slOne)=true then begin
  lab1.Visible := true;
end
else begin
  lab1.Visible := false;
end;

Поправил чуть))
...
Рейтинг: 0 / 0
20.08.2021, 13:33
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092237
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
20.08.2021 13:33, Barmaley57 пишет:
> Поправил чуть))

привести к типу Boolean забыл
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
20.08.2021, 13:36
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092239
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Barmaley57,

Код: pascal
1.
2.
3.
4.
5.
6.
if boolean((slt = slOne))=true then begin
  lab1.Visible := boolean(true);
end
else begin
  lab1.Visible := boolean(false);
end;



Никаких полумер!
...
Рейтинг: 0 / 0
20.08.2021, 13:37
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092242
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
antox
Код: pascal
1.
2.
type
  TSelct = (slOne = Integer(true), slTwo = Integer(false));


Проще же.
...
Рейтинг: 0 / 0
20.08.2021, 13:43
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092243
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
зануда!
...
Рейтинг: 0 / 0
20.08.2021, 13:50
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092247
Barmaley57
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Barmaley57
Участник
rgreat
Barmaley57,

Код: pascal
1.
2.
3.
4.
5.
6.
if boolean((slt = slOne))=true then begin
  lab1.Visible := boolean(true);
end
else begin
  lab1.Visible := boolean(false);
end;



Никаких полумер!

Нееее, не так.
Код: pascal
1.
2.
3.
4.
5.
6.
if boolean((slt = slOne))=true then begin
  lab1.Visible := boolean(true);
end
else if boolean((slt = slOne))=false then begin
  lab1.Visible := boolean(false);
end;
...
Рейтинг: 0 / 0
20.08.2021, 14:01
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092386
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Блин, сначала написал без boolean, появилась ошибка (видимо что-то не то написал) подумал, что так низя. Спасибо.
...
Рейтинг: 0 / 0
21.08.2021, 03:18
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092388
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
Barmaley57
rgreat
Barmaley57,

Код: pascal
1.
2.
3.
4.
5.
6.
if boolean((slt = slOne))=true then begin
  lab1.Visible := boolean(true);
end
else begin
  lab1.Visible := boolean(false);
end;




Никаких полумер!

Нееее, не так.
Код: pascal
1.
2.
3.
4.
5.
6.
if boolean((slt = slOne))=true then begin
  lab1.Visible := boolean(true);
end
else if boolean((slt = slOne))=false then begin
  lab1.Visible := boolean(false);
end;



Вот самый надежный вариант:
Код: pascal
1.
2.
3.
4.
5.
6.
case Boolean( slt = slOne ) of
  True: lab1.Visible := True;
  False: lab1.Visible := False;
  else
    lab1.Visible := Boolean( slt = slOne );
end;
...
Рейтинг: 0 / 0
21.08.2021, 03:29
| Ответить | Цитировать | Написать  
Вернуть boolean из сравнения
    #40092391
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
YuRock
Вот самый надежный вариант:
Код: pascal
1.
2.
3.
4.
5.
6.
case Boolean( slt = slOne ) of
  True: lab1.Visible := True;
  False: lab1.Visible := False;
  else
    lab1.Visible := Boolean( slt = slOne );
end;

Тут напрашивается рекурсия...
...
Рейтинг: 0 / 0
21.08.2021, 03:47
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вернуть boolean из сравнения
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=40092237&tid=2037091]:
 0ms
get settings:
 12ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 272ms
total:  425ms
созд. / загр.: 425ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]