ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Exe + DLL
5 сообщений из 30, страница 2 из 2
  2  все
Exe + DLL
    #39827076
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
x1ca4064,

И все классы описать в одном unit-е?
...
Рейтинг: 0 / 0
17.06.2019, 08:54
| Ответить | Цитировать | Написать  
Exe + DLL
    #39827104
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
antoxx1ca4064,

И все классы описать в одном unit-е?

Нет, не обязательно:

Код: sql
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.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
unit unit1;
interface
type
  TUnitBase=class
  ...
  end;

function CreateAnyClass(Param:....):TUnitBase;

implementation

uses Unit2,Unit3;

function CreateAnyClass(Param:....):TUnitBase;
begin
  Result:=nil;
  if Param.... then Result:= TUnit2.Create
  else if Param... then Result:=TUnit3.Create
  ....
end;
end.

-----------
unit Unit2;
interface
uses Unit1;

type
  TUnit2=class(TUnitBase)
  ...
  end;

implemtation
...
end.

-----------
unit Unit3;
interface
uses Unit1;

type
  TUnit3=class(TUnitBase)
  ...
  end;

implemtation
...
end.
...
Рейтинг: 0 / 0
17.06.2019, 10:05
| Ответить | Цитировать | Написать  
Exe + DLL
    #39827129
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
x1ca4064,

Надо осмыслить...

А в любом случае в каждом проекте придется все unit-ы регистрировать (в dpr), никак низя только unit1 цеплять? (Все unit-ы в одной папке, но не в папке проекта).

Что-то даже не помогает прописка папки поиска в настройках проекта... Ругается на

Или игла надо перейти на интерфейсы вместо абстрактных классов (если я правильно понимаю)?
...
Рейтинг: 0 / 0
17.06.2019, 10:59
| Ответить | Цитировать | Написать  
Exe + DLL
    #39827136
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
antoxx1ca4064,
А в любом случае в каждом проекте придется все unit-ы регистрировать (в dpr), никак низя только unit1 цеплять? (Все unit-ы в одной папке, но не в папке проекта).


Нет, не нужно все модули регистрировать: если они указаны в implentation/uses, они автоматом сами подцепятся. Т.е. просто в нужном месте прогарммы указываете uses Unit1,
потом вызываете CreateAnyClass и вернется нужный TUnit.
...
Рейтинг: 0 / 0
17.06.2019, 11:08
| Ответить | Цитировать | Написать  
Exe + DLL
    #39827222
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
antoxХочу подключать к программам модуль 1 (unit1), в котором есть ф-ции для вызова их из программ, уже этот модуль вызывает ф-ции основного unit2. ф-ции из unit2 недоступны другим модулям, а доступны только unit1 (uses unit2, во всех остальных только uses1).

Проблема в том, что типы описаны в unit2, как можно не описывая их заново в unit1 и не подключая ко всем модулям кроме unit1 еще и unit2 использовать переменные типов, указанных в unit2 в других модулях?

Можно делать так, как показано ниже? Или есть другие решения или лучше вообще избегать такого?

unit2
Код: pascal
1.
2.
3.
4.
5.
type
 TMyRec = record
   s:string;
   i:integer;
 end;




unit1
Код: pascal
1.
2.
type
 TMR = TMyRec



Так делать можно. Но лучше, если получится вынести декларации в unit3, который будет использоваться unit1 и unit2.
...
Рейтинг: 0 / 0
17.06.2019, 14:01
| Ответить | Цитировать | Написать  
5 сообщений из 30, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Exe + DLL
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39827129&tid=2039367]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 151ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 249ms
total:  489ms
созд. / загр.: 489ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]