Дженерики / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Дженерики

13 сообщений из 13, страница 1 из 1

Дженерики

#39786501

client6aac

Гость

Пытаюсь разобраться с обобщенными классами...

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.

type
  TParameters<T> = class
    FValue: T;
    FValueOld: T;
  protected
    function CheckChenged: boolean;
  public
    constructor Create(AValue: T);
    property Value: T read FValue write FValue;
    property isChanged: boolean read CheckChenged;
  end;


implementation


constructor TasParameters<T>.Create(AValue: T);
begin
  FValueOld := AValue;
  FValue := FValueOld;
end;

function TasParameters<T>.CheckChenged: boolean;
begin
  result := FValueOld <> FValue;
end;

на вот это

Код: pascal

result := FValueOld <> FValue;

получаю: [dcc32 Error] Unit1.pas(48): E2015 Operator not applicable to this operand type

Как же выполнять внутри класса какие-либо операции над <T>?

...

Рейтинг:

0 / 0

15.03.2019, 11:18

| Ответить | Цитировать | Написать

Дженерики

#39786519

client6aac

Гость

Подсказываю решение самому себе:

Код: pascal

1.
2.
3.
4.
5.
6.

function TasParameters<T>.CheckChenged: boolean;
var
    comparer: IEqualityComparer<T>;
begin
  result := comparer.Equals(FValueOld, FValue);
end;

...

Рейтинг:

0 / 0

15.03.2019, 11:34

| Ответить | Цитировать | Написать

Дженерики

#39786532

client6aac

Гость

нет, все равно что-то не то...

Код: pascal

1.
2.

  ParamInt := TParameters<integer>.Create(100);
  ParamStr := TParameters<string>.Create('Bla-Bla-Bla');

на это мне компилятор отвечает:
[dcc32 Error] Unit1.pas(62): E2010 Incompatible types: 'Unit1.TParameters<System.Integer>' and 'Integer'
[dcc32 Error] Unit1.pas(63): E2010 Incompatible types: 'Unit1.TParameters<System.string>' and 'string'

В чем проблема?

...

Рейтинг:

0 / 0

15.03.2019, 11:47

| Ответить | Цитировать | Написать

Дженерики

#39786541

wadman

Участник

Откуда: Санкт-Петербург

Сообщения: 26 163

Рейтинг: 0 / 0

client6aacВ чем проблема?
ParamInt что это?

...

Рейтинг:

0 / 0

15.03.2019, 11:53

| Ответить | Цитировать | Написать

Дженерики

#39786542

client6aac

Гость

Код: pascal

1.
2.
3.
4.

  ParamInt := TasParameters<integer>.Create(100);
  ParamStr := TasParameters<string>.Create('Bla-Bla-Bla');
  ParamInt := 10;
  ParamStr := 'qwerty';

вернее, компилятор ругается на 3 и 4 строчки...
Да и во второй пост оказался бредовым...

В общем не понятно с этими дженериками...

...

Рейтинг:

0 / 0

15.03.2019, 11:54

| Ответить | Цитировать | Написать

Дженерики

#39786543

client6aac

Гость

wadmanParamInt что это?

Код: pascal

1.
2.
3.
4.
5.
6.

  TForm1 = class(TForm)
  private
    ParamInt: TasParameters<integer>;
    ParamStr: TasParameters<string>;
  public
  end;

...

Рейтинг:

0 / 0

15.03.2019, 11:55

| Ответить | Цитировать | Написать

Дженерики

#39786550

zinpub

Гость

client6aac,

Код: pascal

1.
2.
3.
4.

 ParamInt := TasParameters<integer>.Create(100);
  ParamStr := TasParameters<string>.Create('Bla-Bla-Bla');
  ParamInt.Value := 10;
  ParamStr.Value := 'qwerty';

...

Рейтинг:

0 / 0

15.03.2019, 12:03

| Ответить | Цитировать | Написать

Дженерики

#39786612

client6aac

Гость

zinpub,
блиииин, ну тупанул уже, так тупанул... заблудился в трех соснах:)
спасибо

...

Рейтинг:

0 / 0

15.03.2019, 12:51

| Ответить | Цитировать | Написать

Дженерики

#39786621

client6aac

Гость

ну и до кучи правильный метод проверки

Код: pascal

1.
2.
3.
4.
5.
6.
7.

function TParameter<T>.CheckChenged: boolean;
var
  comparer: IEqualityComparer<T>;
begin
  comparer := TEqualityComparer<T>.Default;
  result := not comparer.Equals(FValueOld, FValue);
end;

...

Рейтинг:

0 / 0

15.03.2019, 12:55

| Ответить | Цитировать | Написать

Дженерики

#39786655

Arioch

Участник

Сообщения: 11 207

Рейтинг: 0 / 0

client6aac,

не-а, не правильный. При кжадом вызове с нуля гонять RTTI, по нему исктаь классы, создавать экземпляры...

Смотри как коллекции стандартные сделаны и гед они comparer ищут.

В общем,
client6aac

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

  TParameters<T> = class
private
   comparer: IEqualityComparer<T>;
....  

function TParameter<T>.CheckChenged: boolean;
begin
  if nil = comparer then
      comparer := TEqualityComparer<T>.Default;
  result := not comparer.Equals(FValueOld, FValue);
end;

...

Рейтинг:

0 / 0

15.03.2019, 13:17

| Ответить | Цитировать | Написать

Дженерики

#39786704

client6aac

Гость

Arioch,
мысль понял, спасибо

...

Рейтинг:

0 / 0

15.03.2019, 13:53

| Ответить | Цитировать | Написать

Дженерики

#39786902

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

AriochВ общем,Или более оптимальный вариант

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

TParameters<T> = class
strict private
  class var
    comparer: IEqualityComparer<T>;
strict private
  class constructor Create;
....  

class constructor TParameter<T>.Create;
begin
  comparer := TEqualityComparer<T>.Default;
end;

function TParameter<T>.CheckChenged: boolean;
begin
  result := not comparer.Equals(FValueOld, FValue);
end;

Тогда создастся один компарер на все экземпляры

...

Рейтинг:

0 / 0

15.03.2019, 17:34

| Ответить | Цитировать | Написать

Дженерики

#39786916

Arioch

Участник

Сообщения: 11 207

Рейтинг: 0 / 0

_Vasilisk_

Код: pascal

1.
2.
3.
4.

class constructor TParameter<T>.Create;
begin
  comparer := TEqualityComparer<T>.Default;
end;

а вот это спорно.

Он может понадобиться, а может и не понадобиться, программы разные бывают.

Насчёт class var - да, так лучше.

...

Рейтинг:

0 / 0

15.03.2019, 17:50

| Ответить | Цитировать | Написать

13 сообщений из 13, страница 1 из 1

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Дженерики

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&fpage=79&tid=2039692]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	46ms
get topic data:	12ms
get forum data:	3ms
get page messages:	54ms
get tp. blocked users:	2ms
others:	216ms

total:	362ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы