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

Возможно я много хочу, но есть ли какая-то магия, позволяющая

сконвертировать один "рекорд" дата тип в другой с учётом следующих ограничений:
1) Типы полей обоих "рекордов" уникальны (в противном случае пусть будет ошибка компиляции)
2) Если исходный "рекорд" содержит больше полей, чем результирующий, то "лишние" просто не копируются
3) Если исходный "рекорд" содержит меньше полей, чем результирующий, то недостающие должны быть переданы в качестве параметров (например, с использованием HList, или дать второй "рекорд", содержащий недостающее)

Не сталкивались с таким? А то вот эти портянки в виде "появилась новая версия типа с 50 полями, там добавлось ещё два и давайте руками его переконструируем" как-то некрасиво.

1 ответов

10 просмотров

convert ПервыйРекорд{..} Недостающие{..} = ВторойРекорд{..}

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

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

30500 за редактор? )
Владимир
47
а через ESC-код ?
Alexey Kulakov
29
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
13
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Ребят в СИ можно реализовать ООП?
Николай
33
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
6
в JclConsole объявлено так: function CtrlHandler(CtrlType: DWORD): BOOL; stdcall; - где ваше объявление с stdcall? у вас на картинке нет stdcall
Karagy
8
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
notme
6
Карта сайта