Аналог 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 )))

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@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