powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подскажите вариант CASE ... OF с условиями
8 сообщений из 58, страница 3 из 3
Подскажите вариант CASE ... OF с условиями
    #39797482
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FoxpcА меня разочаровало что дженерики нельзя использовать для обычных функций...
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
  TGenericUtils<T> = record
  public
    class function IntToT(const AIntVal: Integer): T; static;
  end;

var
  Str: string;
begin
  Str :=TGenericUtils<string>.IntToT(20);
end;
...
Рейтинг: 0 / 0
Подскажите вариант CASE ... OF с условиями
    #39797486
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FoxpcА меня разочаровало что дженерики нельзя использовать для обычных функций...
В FPC можно.
...
Рейтинг: 0 / 0
Подскажите вариант CASE ... OF с условиями
    #39797491
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Докdefecatorв чём спалился ?

Михал Сергеич, говоришь? :)
я не шифруюсь, от слова совсем
...
Рейтинг: 0 / 0
Подскажите вариант CASE ... OF с условиями
    #39797494
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может запилить в QC New Feature как в SQL
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
case
  when (Predicat1 or Predicat2) and Predicat3 then
    begin
    end;
  when (Predicat1 or Predicat4) and Predicat5 then
    begin
    end;
  when (Predicat6 or Predicat2) and Predicat4 then
    begin
    end;
end;


При чем порядок нахождения попадания в then выполнения сверху вниз. И обработан может быть только 1 when.
Этакий синтаксический сахар для if else if else
...
Рейтинг: 0 / 0
Подскажите вариант CASE ... OF с условиями
    #39797518
Foxpc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
_Vasilisk_FoxpcА меня разочаровало что дженерики нельзя использовать для обычных функций...
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
  TGenericUtils<T> = record
  public
    class function IntToT(const AIntVal: Integer): T; static;
  end;

var
  Str: string;
begin
  Str :=TGenericUtils<string>.IntToT(20);
end;



Не удобно
...
Рейтинг: 0 / 0
Подскажите вариант CASE ... OF с условиями
    #39798028
Фотография roschinspb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
kealon(Ruslan)roschinspb3. По стандартам положено так
эко вас поломало, уже и не там, а всё смотрите на эти глупости
На глупости не смотрю, а вот стандарты форматирования (пусть безобразно лишь бы единообразно) таковыми не считаю.
Не..., конечно в рамках свободного творчества, соображения удобства и личных предпочтений считаю главными.
Но на работе извините надо соблюдать правила и хорошо бы чтобы эти правила были приемлемыми для больше части коллектива.
...
Рейтинг: 0 / 0
Подскажите вариант CASE ... OF с условиями
    #39798035
Фотография roschinspb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
roschinspb, некоторым удобно так
...
Рейтинг: 0 / 0
Подскажите вариант CASE ... OF с условиями
    #39798067
kealon(Ruslan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
roschinspb,

я и говорю, эко вас поломало
...
Рейтинг: 0 / 0
8 сообщений из 58, страница 3 из 3
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подскажите вариант CASE ... OF с условиями
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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