На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> как из generic параметра получить TClass
    ExpandedWrap disabled
      type
        TTest = record
        public
           class procedure Test<T>();static; // важно, нету констрейнта T: class
        end;
       
      class procedure TTest.Test<T>();
      var
        Cl: TClass;
      begin
        Assert(PTypeInfo(TypeInfo(T)).Kind = tkClass);
        // как из T вытянуть ссылку на класс (TClass) ?
        
      end;
      jack128, а GetTypeData к PTypeInfo можно применить? Если да, то из PTypeData и вытянуть
        ага, уже допер, сенкс

        Добавлено
        Кста, связанный вопрос появился:

        ExpandedWrap disabled
          type
            TTest = record
            public
               class procedure Test<T>();static;
               class procedure Test2<T: class>();static;
            end;
           
          class procedure TTest.Test<T>();
          begin
            Assert(PTypeInfo(TypeInfo(T)).Kind = tkClass);
            // как вызывать Test2<T>  ???
           
          end;
        Сообщение отредактировано: jack128 -
          никак. дженерики собираются на стадии компиляции и не подлежат дальнейшей модификации. из за чего на их нельзя применять к методам интерфейса (а жаль).

          а какую проблему пытаешься решить? может что посоветую. я просто применяю часто шаблоны. уж очень большой у их потенциал. но если бы их еще немного расширить то было бы вообще здоров ))

          Добавлено
          у меня что то подобное есть. но оно в обратную сторону. из шаблонной функции вызванивается одноиоменная обычная
          ExpandedWrap disabled
              TSessionQuery = class abstract(TInterfacedObject)
                function Get(AClass: TSessionQueryClass): ISessionQuery; overload;
                function Get<I: ISessionQuery>(AClass: TSessionQueryClass): I; overload;
              end;
             
            function TSessionQuery.Get(AClass: TSessionQueryClass): ISessionQuery;
            begin
              Result := AClass.Create(self);
            end;
             
            function TSessionQuery.Get<I>(AClass: TSessionQueryClass): I;
            var
              pinfo: PTypeInfo;
            begin
              Result := Default(I);
              pinfo:=TypeInfo(I);
              if pinfo <> nil then
                Get(AClass).QueryInterface(GetTypeData(pinfo).Guid, Result);
            end;
            У меня после долгих поисков в google получилось примерно так:
            ExpandedWrap disabled
              type
                TMyObjClass = class of TMyObj;
               
              TMyObjList<T: TMyObj> = class
              ..
               
              function TMyObjList<T>.Add: T;
              var
                C: TMyObjClass;
              begin
                c := T;
                result := C.Create as T;
                FItems.Add(result);
              end;
            Сообщение отредактировано: Dimonka -
            0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
            0 пользователей:


            Рейтинг@Mail.ru
            [ Script execution time: 0,0294 ]   [ 16 queries used ]   [ Generated: 28.03.24, 16:28 GMT ]