Generic procedure function test<T>(param: T); type case T of

Question

Generic procedure function test<T>(param: T); type case T of

longint: NewT = word;
longword: NewT = byte;
end;
var
v1: NewT;

Как это можно сделать? Чтобы у меня был разный тип NewT в зависимости от того, каким типом T я специализирую дженерик?

#lazarus #programming #russian

0

23.05.2024

21 ответов

42 просмотра

notme Автор вопроса

Alex Wow
Ты просто тип Т передай И что это за тип можешь с...

Мне нужно переменную объявить типа NewT

0

23 дня назад

Александр (Rouse_) Багель

да никак такое не сделать, NewT = word; так работать не будет ибо чтобы обьявить новый тип нужна декларация type а её абы куда не впихнешь

0

23 дня назад

notme Автор вопроса

Александр (Rouse_) Багель
да никак такое не сделать, NewT = word; так работа...

не знаю как в дельфи, но в FPC можно синоним типа спокойно впихнуть в процедуру, как в примере кода

0

23 дня назад

Александр (Rouse_) Багель

notme
не знаю как в дельфи, но в FPC можно синоним типа ...

задача ваще какая?

0

23 дня назад

notme Автор вопроса

Александр (Rouse_) Багель
задача ваще какая?

Ну вот как я и описал

0

23 дня назад

notme Автор вопроса

notme
Ну вот как я и описал

хотя пока писал ответ, подумал что возможно мне это уже не нужно 😁 (но надо подумать)

0

23 дня назад

notme Автор вопроса

Александр (Rouse_) Багель
да никак такое не сделать, NewT = word; так работа...

Delphi тоже умеет

0

23 дня назад

Александр (Rouse_) Багель

notme

Delphi тоже умеет

но не в case блоке же, здесь у тебя просто обьявление типа так как оно и должно быть через type

0

23 дня назад

notme Автор вопроса

Александр (Rouse_) Багель
но не в case блоке же, здесь у тебя просто обьявле...

Ну я просто подумал, что case в record'ах - используется, может и здесь как-то можно...

0

23 дня назад

zamtmn

специализируй двумя типами Т и невТ сразу отдавай в генерик

0

23 дня назад

notme Автор вопроса

zamtmn
специализируй двумя типами Т и невТ сразу отдавай ...

Да, так можно, но хотелось меньше ручной работы

0

23 дня назад

notme Автор вопроса

zamtmn
специализируй двумя типами Т и невТ сразу отдавай ...

Кстати... кажется придумал как обойти - нужно ещё одну функцию-генерик обёртку где уже смогу в коде через caseof специализировать дженерик функцию с двумя типами, а эту обёртку заинлайнить и её как будто вообще нет Матрёшка )

0

23 дня назад

zamtmn

notme
Кстати... кажется придумал как обойти - нужно ещё ...

после серии таких придумок рождаются монстры говнокода. я люблю такое))

0

23 дня назад

Alexey Kulakov

notme
Кстати... кажется придумал как обойти - нужно ещё ...

незаинлайнится

0

23 дня назад

notme Автор вопроса

Alexey Kulakov
незаинлайнится

Счас не рядом с ЭВМ, проверю позже, жаль если нет

0

23 дня назад

Green

notme
Счас не рядом с ЭВМ, проверю позже, жаль если нет

Стикер

0

23 дня назад

notme Автор вопроса

Это не я А кто тогда? 🤔хммммм👀

0

23 дня назад

Alexey Kulakov

notme
Это не я А кто тогда? 🤔хммммм👀

это с улицы

0

23 дня назад

notme Автор вопроса

Alexey Kulakov
незаинлайнится

Обманщик, ты Алексей! ) Всё заинлайнилось 👌 А то всё си плюс плюююс, си плюс плююююс 😄 А то всё низя, никак, невозможно! - Возможно!

0

23 дня назад

notme Автор вопроса

notme
Обманщик, ты Алексей! ) Всё заинлайнилось 👌 А то в...

generic function abc<T, TT>(value:T):T; var D: TT; begin Result:=SizeOf(D); end; generic function abc2<T>(value:T):T; inline; begin case sizeof(T) of 4: result:=specialize abc<T,integer>(value); 8: result:=specialize abc<T,UInt64>(value); end; end; procedure TForm1.FormCreate(Sender: TObject); var value:int64; begin Caption:=IntToStr( specialize abc2<int32>(value) );

0

23 дня назад

Alex Wow · Accepted Answer

Alex Wow

Ты просто тип Т передай И что это за тип можешь смотреть в методе каком нибудь

0

23 дня назад

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

Generic procedure function test<T>(param: T); type case T of

21 ответов

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