С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Как сделать инжект DLL в Delphi в уже готовый выбор процессов? https://www.cyberforum.ru/ delphi-beginners/ thread1656323.html
Как сделать инжект DLL в Delphi в уже готовый выбор процессов ? Нужно чтобы при нажатии кнопки инжектилась DLL в процесс браузера ! Если кто знает скиньте код) 		Delphi Визуализация выбора параметра в запросе
Как красиво и компактно сделать выбор параметра в запросе для пользователя ? Допустим запрос: https://site.com/?type=1; Параметр type допустим имеет 3 значения: 1,2,3. Можно сделать так :
Delphi Нажатие на кнопку TSpeedButton Подскажите у меня есть две кнопки, TButtonedEdit и TSpeedButton и если я пишу на TSpeedButton if sEdit.Text <> '' then begin sEdit.Text := ''; end; то все работает идеально. Очищает поле если оно не пустое https://www.cyberforum.ru/ delphi-beginners/ thread1656182.html Delphi Как установить Richedit посередине формы Добрый день! Подскажите пожалуста как установить Richedit посередине формы? Чтобы когда я делал форму на весь екран Richedit был по середине, а если не навесь екран чтобы он тоже двигался и был всегда посередине формы https://www.cyberforum.ru/ delphi-beginners/ thread1656176.html
Кидаем кубики 100 миллионов раз Delphi
Генерирую 100 миллионов случайных чисел в двух массивах. Собственно когда получается допустим 6*6, считаю сколько раз выпадет подряд. Дак вот. Интересный факт, если вызываю randomize только в начале процедуры то получаем максимально подряд 4-5, а если перед каждой генерацией, то 17-18. Я так понимаю если перед каждой генерацией вызывать не верно будет да? код: procedure potok.Execute; var ... 		Delphi Добавить ключи в regedit https://www.cyberforum.ru/ delphi-beginners/ thread1656127.html
помогите как добавить regedit? "29"="%SystemRoot%\\Blank.ico,0" "DisableOnSoftRemove"=dword:00000001 "OEMBackground"=dword:00000001
Delphi Какую версию программы выбрать? https://www.cyberforum.ru/ delphi-beginners/ thread1656103.html
Здравствуйте! Задача такая, создать приложение которое будет работать с таблицами и заполнять определенные формы документов, сохранять их в отдельные файлы и выводить на печать, т.е будет формировать документацию. По сути нужно тоже, что и программа 1С, только проще и меньше. Моя проблема в том, что я полный ноль в программировании и совершенно не представляю с чего начать... Подскажите... 		DLL для управления курсором Delphi
Здравствуйте люди! Прошу совета у знающих. У меня такая задача: хочу, чтобы с помощью данной процедуры совершалось перемещение курсора и эмуляция клика мышью по заданным координатам. В приложении этот простейший код прекрасно работает, а когда записал его в библиотеку (DLL), то не компилируется. Выделяется красным строка с функцией SetCursorPos и не компилируется. Может кто сможет...
Delphi Удаление колонок sListView https://www.cyberforum.ru/ delphi-beginners/ thread1655823.html
Привет! Как можно удалить колонки с sListView? Пробовал так var I: Integer; begin for I := 0 to sListView1.Columns.Count - 1 do sListView1.Columns.Delete(I); end; Выскакивает ошибка "Argument out of range." 		Delphi Шутка на Delphi 7 по задумке прога должна открыть блокнот, заблокировать мышь и клавиатуру, написать в блокноте текст, разблокировать мышку и клавиатуру, и закрыться. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ShellAPI; type https://www.cyberforum.ru/ delphi-beginners/ thread1655810.html
ProgressBar в StatusBar Delphi
Здравствуйте. Как поместить ProgressBar в StatusBar? 		Delphi Пропали фреймы и компоненты https://www.cyberforum.ru/ delphi-beginners/ thread1655727.html
Всем доброго времени суток. Суть такова: вчера делал проект, сохранил, вышел. Сегодня открываю форму, и выводится, что TFrame8 и TFrame9 не найдены. Их нету и в списке всех форм, хотя все остальные фреймы на месте. В папке с проектом лежат все нужные файлы (unit?.pas, unit?.dcu, unit?.dfm). Как можно решить и сталкивался ли кто?
5868 / 4596 / 1448
Регистрация: 14.04.2014
Сообщений: 20,393
Записей в блоге: 20
08.02.2016, 21:40 0

Проверить являются члены множества классов потомками другого множества классов - Delphi - Ответ 8728290

08.02.2016, 21:40. Показов 3180. Ответов 17
Метки (Все метки)
Лучший ответ Сообщение было отмечено homelleon как решение

Решение

отлично...
вполне достаточно будет
Delphi
1
2
3
4
5
6
7
8
9
10
11
12

var cb:TCube;
 
for i:=0 to quad.count-1 do
begin
  if (quad[i] is TCube) then
  begin
    cb:=quad[i] as TCube;
    // использовать cb, чтобы не лазить постоянно Quad[i].
    // Delphi почему-то не оптимизирует обращение к i-му элементу
   ...
  end;
end;
Добавлено через 6 минут
в качестве примера у меня в аналогичной задаче есть примерно такой код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

TGrKind=(kLine,kPoint,kSegment);
TGrKindSet=set of TGrKind;
TGrObject=class
  kind:TGrKind;
end;
TGrObjects=class(TObjectList<TGrKind>)
  function SubSet(Kinds:TGrKindSet):TGrObjects;
end;
 
function TGrObjects.SubSet(Kinds:TGrKindSet):TGrObjects;
begin
  result := TGrObjects.Create(False);
  for i:=0 to Count-1 do
  begin
     if (items[i].kind in Kinds) then
       result.add(Items[i]);
  end;
end;
 
// использовать очень просто
List1:=objList.Subset([kLine,kPoint];
LineList:=objList.Subset([kline]);


Вернуться к обсуждению:
Проверить являются члены множества классов потомками другого множества классов Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 08.02.2016, 21:40
Готовые ответы и решения:

Обработка множества объектов разных классов
Кратенько исходная задача: имеется железо в режиме TX, которое периодически выдает сообщения о...

Реализация шаблона множества set (для классов) на основе list или указателей
Требуется реализовать шаблон &lt;set&gt;, только на основе списка или указателей, чтобы там былии методы...

Возможно ли создание собственного пространства имен для объединения множества классов и типов
Возможно ли создание собственного пространства имен для объединения множества классов и типов. Либо...

Как в множестве set проверить наличие элементов другого множества?
while (!fin.eof()) { fin &gt;&gt; word; cout&lt;&lt; word&lt;&lt;endl; for (int i = 0; i &lt; kol_ar;...

17
08.02.2016, 21:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 08.02.2016, 21:40
Помогаю со студенческими работами здесь

Вывести слова этого же текста, множества символов которых являются подмножествами множества символов
Для каждого слова w данного текста вывести слова этого же текста, множества символов которых...

Определить количество классов эквивалентных столбцов данной прямоугольной матрицы. Столбцы считать эквивалентными, если равны множества их элементов.
подскажите пожалуйста!!!на СИ Определить количество классов эквивалентных столбцов данной...

Static члены классов
Доббрый день. Хочу решить следующую задачу: посчитать количество сравнений, которое делает...

Указатель на объекты и члены классов
class AA { public: void Start( ); }; class BB { public: void Start( );

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru