powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Можно ли реализовать ветвление
6 сообщений из 31, страница 2 из 2
Можно ли реализовать ветвление
    #39556409
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
чччД
Код: pascal
1.
2.
3.
4.
5.
  case CompareStr('1', '2') of
    -1: ... ;
     0: ... ;
     1: ... ;
  end;


Так теоретически возможны варнинги, и вообще некрасиво case без else, я предпочитаю так:
Код: pascal
1.
2.
3.
4.
5.
  case CompareStr('1', '2') of
    -1: ... ;
     1: ... ;
     else ...; 
  end;
...
Рейтинг: 0 / 0
Можно ли реализовать ветвление
    #39556412
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
YuRockчччД
Код: pascal
1.
2.
3.
4.
5.
  case CompareStr('1', '2') of
    -1: ... ;
     0: ... ;
     1: ... ;
  end;


Так теоретически возможны варнинги, и вообще некрасиво case без else, я предпочитаю так:
Код: pascal
1.
2.
3.
4.
5.
  case CompareStr('1', '2') of
    -1: ... ;
     1: ... ;
     else ...; 
  end;


Тогда уж так пиши:
Код: pascal
1.
2.
3.
4.
5.
case '1' = '2' of
  True : ... ;
  False: ...;
  else ...
end;


Чтобы ворнингов не было и чтобы красиво.
...
Рейтинг: 0 / 0
Можно ли реализовать ветвление
    #39556417
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
чччДТогда уж так пиши:
Код: pascal
1.
2.
3.
4.
5.
case '1' = '2' of
  True : ... ;
  False: ...;
  else ...
end;



Чтобы ворнингов не было и чтобы красиво.
Да, это вариант
...
Рейтинг: 0 / 0
Можно ли реализовать ветвление
    #39556418
Кар-Кар
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CompareStr разве не разницу символов должна возвращать? Или длины...
Там хоть сколько может быть, а не только -1 и 1.

Сабж. Нельзя.И на асме вообще лучше полностью писать, а не вставками.
Ну я это из 64, там только так, написал - в архив, юзаешь всю жизнь.
...
Рейтинг: 0 / 0
Можно ли реализовать ветвление
    #39556425
Сергей N
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Кар-Кар, полностью согласен. Под вставкой понимаю только изменение уже имеющегося кода с удалением повторного сравнения и использованием уже установленных флагов, наподобие приведенного AWSVladimir.

Зашедший, и вы правы. Для корпоративного софта подобные заморочки только вредны. Но у меня индивидуальный инструментарий, где значительная часть кода - это ветвления.
...
Рейтинг: 0 / 0
Можно ли реализовать ветвление
    #39556786
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кар-КарCompareStr разве не разницу символов должна возвращать? Или длины...Нет. Там некое произвольное число. Как оно вычисляется - никого не интересует.
Кар-КарТам хоть сколько может быть, а не только -1 и 1.Да. Документация говорит о трех значениях <0, =0, >0
...
Рейтинг: 0 / 0
6 сообщений из 31, страница 2 из 2
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Можно ли реализовать ветвление
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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