Класс и указатель

[SomeOneAndrey]

Как из класса получить указатель на него?
@Self выдает некий адрес, что умирает после завершения конструктора. Необходимо при создании класса создать в нем поток, с указателем на этот же класс. Рабочий вариант пока что - передавать указатель на класс в конструкторе, но это не приемлимо

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
			Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type
      TMyClass=class;

			{ TMyThread }

      TMyThread=class(TThread)
        public Me:TMyClass;
        protected procedure execute; override;
			end;

			 { TMyClass }

       TMyClass=class
         private
           MyThread:TMyThread;
         public
           constructor Create;

			 end;

			TForm1 = class(TForm)
			private
						{ private declarations }
			public
						{ public declarations }
			end;

var
			Form1: TForm1;

implementation

{$R *.lfm}

{ TMyClass }

constructor TMyClass.Create;
begin
  MyThread:=TMyThread.Create(true);
  MyThread.Me:=self;
  MyThread.Start;
end;

{ TMyThread }

procedure TMyThread.execute;
begin
 Me.Чего-то там
end;

end.

Я тебя правильно понял?

[SomeOneAndrey]

Отлично! Спасибо!

[northener]

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

Как из класса получить указатель на него?
@Self выдает некий адрес, что умирает после завершения конструктора. Необходимо при создании класса создать в нем поток, с указателем на этот же класс. Рабочий вариант пока что - передавать указатель на класс в конструкторе, но это не приемлимо

Не надо мудрить! Self и есть указатель на данный экземпляр класса, для которого и вызван метод класса.

[come-on]

Self и есть указатель на данный экземпляр класса, для которого и вызван метод класса.

Ссылка, не указатель.

[northener]

Сообщение от come-on

Ссылка, не указатель.

Мы говорим указатель - подразумеваем ссылку. Мы говорим ссылка - подразумеваем указатель.

[come-on]

Подразумевать можно все что угодно, только это не одно и тоже, не всегда взаимозаменяемы.

[taras-proger]

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

Как из класса получить указатель на него?
@Self выдает некий адрес, что умирает после завершения конструктора. Необходимо при создании класса создать в нем поток, с указателем на этот же класс. Рабочий вариант пока что - передавать указатель на класс в конструкторе, но это не приемлимо

А как из типа integer получить указатель на него? Указатели не получают из типов, они просто присваиваются. Если у тебя отработал конструктор, то создал или именованный объект, элемент именованного массива, или объект, который уже лежит по указателю. В первом случае всё просто:

type t=class
...
end;
...
var o:t;
    p:t^; {указатель на t, возможно здесь я переврал синтаксис}
...
begin
     p:=@o; {что сложного?}

, во втором случае похоже:

type t=class
...
end;
...
var o:array[1.. 32] of t;
    p:t^; {указатель на t, возможно здесь я переврал синтаксис}
...
begin
     p:=@(o[12]); {что сложного?}

, в третьем же случае указатель уже есть, даже если ты создал сразу массив безымянных объектов, то указатель на каждый из них вычисляется по указателю на весь массив, индексу элемента и sizeof класса.

[taras-proger]

Сообщение от come-on

Ссылка, не указатель.

Энто когда же в паскале и его потомках появились ссылки?

[come-on]

Энто когда же в паскале и его потомках появились ссылки?

вот как стали писать "type t=class" так тут же и появилось