Как сохранить ссылку на объект?

[TwiX]

Например, я каждый раз посылал в юнит сам ListBox. Как сохранить его адрес? Что бы потом можно было изменять его не передавая снова в юнит?

Вроде как-то так:

var
lb:^TLisbox;
begin
  lb:=@Listbox;
  lb.items.add...
end;

?

[Neeter]

procedure TForm1.Button2Click(Sender: TObject);
var
 lb: ^TListBox;
begin
 lb := @ListBox1;
 TListBox(lb^).Items.Add('text');
end;

Но это исправления вашего кода. Если в юнит отправлять, то проще так:
Код юнита:

unit Unit2;

interface

uses
  StdCtrls;

procedure lb_add(lb: pointer);

implementation

procedure lb_add(lb: pointer);
begin
 TListBox(lb^).Items.Add('text');
end;

end.

Вызов:

procedure TForm1.Button2Click(Sender: TObject);
begin
 lb_add(@ListBox1);
end;

[BOBAH13]

Записывайте на листик шариковой ручкой :D
Вроде в дельфи, объект это и так уже адрес. Значит можно просто

var
  o2: TObject;

procedure dosomethng(o1: TObject)
begin
  o2 := o1;
end;

[TwiX]

Уже сделал как у Вована, но всё-равно всем спасибо)
Что значит lb^?

[Neeter]

Что значит lb^?

Это данные по указателю. А @lb - это указатель на указатель.

[s.Creator]

Сообщение от TwiX

Уже сделал как у Вована, но всё-равно всем спасибо)
Что значит lb^?

А так не пробовали?

var
lb:TLisbox;
begin
  lb:=Listbox;
  lb.items.add...
end;

[TwiX]

^Разве это не то же самое, что сказал Вован?)

[mihali4]

Совсем разные вещи.
У Вована указан глобальный объект и поэтому он будет хранить нужный вам указатель, а у s.Creator он объявлен локально и ничего хранить не будет.

[s.Creator]

Извиняюсь, невнимательно прочитал вопрос.
Во исправление напишу подробнее, как я это делаю.
Во первых, стараюсь меньше хранить ссылок на визуальные компоненты в других модулях и стараюсь разделить модули использованием функций или методов. Например если у меня есть форма диалога редактирования какого нибудь Edit, я делаю приблизительно так:

unit UEditNameDlg;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TEditNameDlg = class(TForm)
    edName: TEdit;
    btOk: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    class function ShowEditDlg(const dlgCaption: string; 
       aEdit: TEdit): Boolean;
  end;
implementation
{$R *.dfm}
{ TEditNameDlg }
class function TEditNameDlg.ShowEditDlg(const dlgCaption: string;
  aEdit: TEdit): Boolean;
var
  form: TEditNameDlg;
begin
  form := TEditNameDlg.Create(nil);
  try
    form.edName.Text := aEdit.Text;
    form.Caption := dlgCaption;
    Result := form.ShowModal = mrOk;
    if Result then
      aEdit.Text := form.edName.Text;
  finally
    form.Free;
  end;
end;
end.

Использую:

  if TEditNameDlg.ShowEditDlg('Редактирование', FioEdit) then //....

Но случаи бывают разные, также как и модули.
У меня есть модули функций ( типа библиотек часто используемых функций ) - в них обычно никаких сторонних ссылок не храню.
И модули Классов, которые позволяют создавать объекты, выполняющие какую-то деятельность. В них я предпочитаю хранить ссылки в виде полей класса. Даже если это класс формы - можно хранить ссылки на компоненты других форм в секции private например ( хотя уже давно не припомню, чтобы одни формы у меня хранили ссылки на компоненты других ). Причем если класс наследник от TComponent или его потомков, то можно пользоваться механизмом нотификации для обнуления ссылки при уничтожении компонента. Например:

unit UEditNameDlg;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TEditNameDlg = class(TForm)
    edName: TEdit;
    btOk: TButton;
  private
    { Private declarations }
    FOtherEdit: TEdit;
    procedure SetOtherEdit(const Value: TEdit);
  protected
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    { Public declarations }
    property OtherEdit: TEdit read FOtherEdit write SetOtherEdit;
  end;
implementation
{$R *.dfm}
{ TEditNameDlg }

procedure TEditNameDlg.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  if (Operation = opRemove) and Assigned(FOtherEdit) 
      and (FOtherEdit = AComponent) then
    FOtherEdit := nil;
  inherited;
end;

procedure TEditNameDlg.SetOtherEdit(const Value: TEdit);
begin
  if FOtherEdit = Value then
    Exit;
  if Assigned(FOtherEdit) then
    RemoveFreeNotification(FOtherEdit);
  FOtherEdit := Value;
  if Assigned(FOtherEdit) then
    FreeNotification(FOtherEdit);
end;

end.

Это предотвращает обращение к уже уничтоженному внешнему компоненту.