Показать сообщение отдельно
  #7  
Старый 02.12.2024, 10:40
infopol infopol вне форума
Прохожий
 
Регистрация: 03.06.2021
Сообщения: 42
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Описание задачи

Спасибо за ответ.Вот описание задачи по созданию ComDLL
1. Создать Com Dll
2. OleObject ArrayCom -OleVariant,можно TypeArray - тип данных в массиве.
3. Свойства Count -количество элементов в массиве
4. Методы Add - добавление в массив,Del (<N>) удаление элемента массива,Sort - сортировка массива,Revers- реверсирование,Clear - Очистка массива, Items[<N>] - получение значения массива Variant,OnArray - Array of variant.
Код:
Arr:=CreateOleObject('ArrayCom')
Arr.Clear;
Arr.Add('Привет')
Arr.Add('это библиотека ')
Arr.Add('ArrayCom.Dll')
//или
{Arr.Add(100)
Arr.Add(245)
Arr.Add(1009)
}

for i=0 to Arr.Count do
ShowMessage(VarToString(Arr.Items[i]))
П.П. Заранее благодарен. CreateOleObject("System.Collections.ArrayList") не на всех компутерах работает и не знаю как ее зарегистрировать.
Ответить с цитированием