Аналог TVectorInt в delphi для c++

@queit · Регистрация: 11.04.2011

Студворк — интернет-сервис помощи студентам

Добрый день.
Скачал компоненты NeuralBase для нейроветей с сайта http://www.basegroup.ru.
Пытаюсь построить простую сеть Хопфильда.
На вход подается картинка 16х16 (вернее массив значимых пикселей размерностью 256) - ну это не особо важно, так для информации.
У компонента NeuralNetHopf есть метод AddPattern(const ANewPattern: TVectorInt).
Пробовал следующее:

C++
1
__int64* pattern;

В строке:

C++
1
NeuralNetHopf->AddPattern(pattern);

Вылетает ошибка:
Could not find a match for 'TNeuralNetHopf::AddPattern(__int64 *)'
Или вот так если задавать:

C++
1
2
typedef std::vector<std::vector<int> > TvectorINT;
TvectorINT pattern(256);

То:
Could not find a match for 'TNeuralNetHopf::AddPattern(TvectorINT)'
Подскажите, пожалуйста, как иницализировать вектор TVectorInt?

cpp_developer · 19.11.2011, 14:52

C++
1
TvectorINT pattern[256];

@queit · 19.11.2011, 15:06 **[ТС]**

Все равно ошибка:
Could not find a match for 'TNeuralNetHopf::AddPattern(TvectorINT)'

@DefineTrueFalse · 19.11.2011, 17:47

Сообщение от queit

Could not find a match for 'TNeuralNetHopf::AddPattern(TvectorINT)'

Значит нет метода, прочтите документацию или просто посмотрите, что заключено в классе.

@queit · 19.11.2011, 18:28 **[ТС]**

Самое интересное что в документации метод есть.
И вроде компенент правильно установился.
Может еще есть какой-нибудь способ инициализировать TvectorINT???

@DefineTrueFalse · 19.11.2011, 18:39

Сообщение от queit

Может еще есть какой-нибудь способ инициализировать TvectorINT???

Их может быть еще 20, но у TNeuralNetHopf нет метода AddPattern с параметром типа TvectorINT, может нужен абстрактный параметр или еще что-то смотрите класс вручную.

@queit · 19.11.2011, 18:48 **[ТС]**

вот я открыл NeuralBaseComp.pas
а в нем:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TNeuralNetHopf.AddPattern(const ANewPattern: TVectorInt);
var
  i: integer;
begin
  if InputNeuronCount <> High(ANewPattern)+ 1 then
    raise EInOutDimensionError.Create(SInNeuronCount);
  PatternCount := PatternCount + 1;
  ResizePatternsDim;
  for i := 0 to FInputNeuronCount - 1 do
    FPatterns[FPatternCount - 1, i] := ANewPattern[i];
  if AutoInit then
    InitWeights;
end;

разве это не определение метода??? или я что-то не понимаю???

@DefineTrueFalse · 19.11.2011, 20:05

Сообщение от queit

или я что-то не понимаю???

Или я чего-то не понял)

NeuralBase - библиотека компонентов для Delphi

@queit · 19.11.2011, 20:17 **[ТС]**

(8) все верно. я открыл проект в rad studio 2010 сделал build и установил. rad studio мне сформировало хедары, я их закинул в include.
И теперь этот компонент мне доступен в C++ builder 2010.
Может я не правильно сделал? Но я уже таким образом устанавливал компоненты, которые были написаны для delphi.
или я снова что-то не так сделал? :-)

@DefineTrueFalse · 19.11.2011, 20:32

Понятно, хочу предупредить, что на сайте производителя уже были комментарии по поводу не стабильности компонента на Си.
Но если это не останавливает, то посмотрите какой тип параметра передается при AddPattern класса TNeuralNetHopf именно в интерпритированной Си версии.

Сообщение от queit

const ANewPattern: TVectorInt

Обычно в Delphi название пишут с символа "A" если класс является абстрактным. Думаю проблема в этом.

@queit · 19.11.2011, 20:48 **[ТС]**

(10) да, форум почитал. про нестабильность тоже знаю.
В NeuralBaseComp.hpp получается следующее:

C++
1
HIDESBASE void __fastcall AddPattern(const Neuralbasetypes::TVectorInt ANewPattern)

а в NeuralBaseTypes.hpp этот TVectorInt определен как:

C++
1
typedef DynamicArray<int> TVectorInt;

вот оно как! что-то я совсем запутался...

@DefineTrueFalse · 19.11.2011, 21:01

Объявляйте Neuralbasetypes::TVectorInt, вместо TVectorInt.

@queit · 20.11.2011, 07:10 **[ТС]**

(12) спасибо, в точку. так получилось.

но теперь возникает другая проблема - как заполнить этот массив данными.
в начале устанавливаю размер:

C++
1
pattern.set_length(259);

Пробую заполнить вот так:

C++
1
pattern[0] = 5;

или вот так:

C++
1
pattern.operator [](0) = 5;

Все равно не заполняется. Подскажите как быть?

@DefineTrueFalse · 20.11.2011, 07:40

По идее должно быть заполнение, придоставьте присвоение в контексте с объявлением.

@queit · 20.11.2011, 07:53 **[ТС]**

Вот так объявляю:

C++
1
Neuralbasetypes::TVectorInt pattern;

Далее пытаюсь заполнить:

C++
1
pattern.set_length(256);

// установка размерности
затем заполнение:

C++
1
2
for(int i=0; i<=255; i++)
    pattern[i] = i;

или вот так пробую:

C++
1
2
for(int i=0; i<=255; i++)
    pattern.operator [](i) = i;

смотрю в режиме отладки что происходит - вообще ничего: ни размерность не устанавливается, ни заполнение не происходит. Даже ни каких ошибок не выдается...

@DefineTrueFalse · 20.11.2011, 08:04

Весьма странно, попробуйте сделать следующую проверку:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   typedef DynamicArray<int> TMyInt;
   TMyInt x;
   x.set_length(256);
   // объявление и размерность.
 
   for (int index = 0; index < x.Length; index++)
      x[index] = index;
   // заполнение.
 
   for (int index = 0; index < x.Length; index++)
      ListBox1->Items->Add(x[index]);
   // проверка.
}

Данная проверка не вызвала ошибок ни в процессе компиляции, ни при исполнении. А так же заполнение прошло успешно.

@queit · 20.11.2011, 08:32 **[ТС]**

DefineTrueFalse, да так получается.
Просто совсем не понятно тогда что такое:

C++
1
Neuralbasetypes::TVectorInt pattern;

и как оно работает.
По всей видимости в этом и заключается специфика работы компонента NeuralBase под с++.

DefineTrueFalse, Большое спасибо за ответы :-)
Буду дальше ковырять NeuralBase )))

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

@queit 0 / 0 / 0 Регистрация: 11.04.2011 Сообщений: 16
	19.11.2011, 15:06 [ТС]
	Все равно ошибка: Could not find a match for 'TNeuralNetHopf::AddPattern(TvectorINT)' 0

@queit 0 / 0 / 0 Регистрация: 11.04.2011 Сообщений: 16
	19.11.2011, 18:28 [ТС]
	Самое интересное что в документации метод есть. И вроде компенент правильно установился. Может еще есть какой-нибудь способ инициализировать TvectorINT??? 0

@queit 0 / 0 / 0 Регистрация: 11.04.2011 Сообщений: 16
	19.11.2011, 20:17 [ТС]
	(8) все верно. я открыл проект в rad studio 2010 сделал build и установил. rad studio мне сформировало хедары, я их закинул в include. И теперь этот компонент мне доступен в C++ builder 2010. Может я не правильно сделал? Но я уже таким образом устанавливал компоненты, которые были написаны для delphi. или я снова что-то не так сделал? :-) 0

@DefineTrueFalse 872 / 448 / 35 Регистрация: 25.10.2011 Сообщений: 910
	19.11.2011, 21:01
	Объявляйте Neuralbasetypes::TVectorInt, вместо TVectorInt. 0

@DefineTrueFalse 872 / 448 / 35 Регистрация: 25.10.2011 Сообщений: 910
	20.11.2011, 07:40
	По идее должно быть заполнение, придоставьте присвоение в контексте с объявлением. 0