Разделение объектов в Delphi: как корректно работать с объектами разных форм

Delphi , Компоненты и Классы , Классы

Иногда в приложениях на Delphi возникает необходимость доступа к объектам, которые находятся в разных формах. Это может быть связано с обменом данными между формами или использованием компонентов, созданных в одной форме, в другой. Однако, при неправильном подходе, это может привести к ошибкам, связанным с неправильным управлением памятью и невидимостью объектов.

Описание проблемы

Проблема заключается в том, что у нас есть два объекта objUser, один из которых принадлежит Form1, а другой - Form2. Нам необходимо получить доступ к объекту, принадлежащему Form1, из Form2. Для этого нужно каким-то образом ссылаться на Form1. Пример кода может выглядеть следующим образом:

procedure TForm2.FormShow(Sender: TObject);
begin
  lbl1.Caption := IntToStr(Form1.objUser.getUserID);
end;

Однако, для корректной работы такого подхода, objUser должен быть глобально видимым в Form1, что может не быть верным. Кроме того, Form1 должен быть видим для Form2, что также требует дополнительной настройки.

Подтвержденный ответ

Для решения проблемы доступа к объектам разных форм необходимо убедиться, что объекты доступны и правильно инициализированы. Один из способов - использование глобальных переменных, но это может привести к сложностям в управлении памятью и тестировании. Более предпочтительный вариант - использование паттернов проектирования, таких как Singleton, который позволяет управлять единой инстанцией объекта в приложении.

Пример Singleton на Object Pascal:

```pascal type TUser = class private FInstance: TUser; function CreateInstance: TUser; override; constructor Create; public property Instance: TUser read FInstance; // Здесь могут быть методы и свойства класса end;

{ TUser }

constructor TUser.Create; begin inherited Create; FInstance := nil; end;

function TUser.CreateInstance: TUser; begin if FInstance = nil then FInstance := TUser.Create; Result := FInstance; end;

constructor TUser.Create; begin inherited; // Инициализация класса end;

constructor TUser.CreateInstanceCreateInstance; { Защита от множественного вызова CreateInstance } begin SetLength(CreateInstanceName, SizeOf(TClassInstanceName)); {$IFDEF UNIX} CreateInstanceName[0] := CreateInstanceName; {$ELSE} mov CreateInstanceName, TClassInstanceName, CreateInstanceName^SizeOf(TClassInstanceName); {$ENDIF} CreateInstanceName := 'InstanceCreateInstance'; {$IFDEF UNIX} {$ASM lea eax, [ClassType] push eax call @CreateInstance mov eax, [InstanceCreateInstance] {$ELSE} {$ASM mov eax, Offset(TCreateInstance) call eax mov eax, [eax] {$IFDEF _WIN64} mov qword ptr [CreateInstance], eax {$ELSE} mov dword ptr [CreateInstance], eax {$ENDIF} {$IFDEF _DEBUG} {$IFDEF UNIX} {$ASM ; Проверка на утечки при отладке {$ELSE} {$ASM .errnz "CreateInstanceCreateInstance not equal CreateInstanceCreateInstance" {$ENDIF} {$ENDIF} {$IFDEF UNIX} {$ASM mov dword ptr [CreateInstance], eax {$ELSE} {$ENDIF} push SizeOf(TClassInstanceName) {$IFDEF UNIX} {$ASM mov eax, [CreateInstance] {$ELSE} {$IFDEF _WIN64} mov qword ptr [Offset(CreateInstanceName)], eax {$ELSE} {$IFDEF UNIX} {$ENDIF} {$ENDIF} {$IFDEF UNIX} {$ASM mov eax, [CreateInstance] mov eax, eax {$ENDIF} {$IFOF} {$IFDEF _WIN64} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFDEF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFOF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFOF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFOF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFDEF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFDEF UNIX} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFDEF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFDEF} {$ENDIF} {$ENDIF} {$IFENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFDEF} {$ENDIF} {$IFDEF {$ENDIF {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$IFDEF} {$ENDIF} {$ENDIF {$IFDEF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$IFDEF {$ASM {$IFDEF UNIX} {$ENDIF {$IFDEF {$ENDIF} {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF} {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF} {$ENDIF} {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF} {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$IFDEF {$ENDIF {$ENDIF {$IFENDIF} {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$IFENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$IFDEF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$IFDEF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$IFDEF {$IFOF} {$IFENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$IFDEF {$ENDIF {$ENDIF {$ENDIF} {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF {$ENDIF

Создано по материалам из источника по ссылке.

`mov CreateInstanceName, SizeOf(TClassInstanceName)`: Замена директивы на правильный размер для Win64, в Unix просто перемещение, но для этого не нужно указывать `SizeOf(TClassInstanceName)`; В коде есть комментарий `// Защита от множест

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Классы ::