VPF::Динамическое создание обьектов в потоке

s-r

Дата 29.8.2007, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 19.4.2007

Репутация: нет
Всего: нет

Создан потомок обьекта TThread -> TRain

Код


TMy=class
  end;

procedure TRain.Execute;
var
  my:^TMy;

begin
while not Terminated do
  begin
      new(my);                     // ???
    
  end;
end;

память выделяется, но при закрытии приложени Access violation at address 0000000000...
как решить проблему?

M
Alexeis

Модератор: используйте подсветку кода http://forum.vingrad.ru/index.php?show_typ...howtopic=126445

Это сообщение отредактировал(а) Alexeis - 29.8.2007, 17:28

EvilsInterrupt

Дата 29.8.2007, 17:19 (ссылка)

(нет голосов)

Загрузка ...

Executables research

Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

Репутация: нет
Всего: 9

s-r, А TMy это чей сын? От TObject или просто класс?

--------------------

про реверсинг, вроде чтото даже интересно

Alexeis

Дата 29.8.2007, 17:29 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Что-то пахнет паскалем smile

. В делфи объекты создаются так

Код


TMy=class

  end;
procedure TRain.Execute;
var
  my : TMy;
begin
while not Terminated do
  begin
      my := TMy.Create  ;                 // ???
    
  end;
end;

Добавлено @ 17:31
EvilsInterrupt, а разве в делфи класс может быть не наследником TObject ?

Это сообщение отредактировал(а) Alexeis - 29.8.2007, 17:31

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

lukas

Дата 29.8.2007, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

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

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

EvilsInterrupt

Дата 29.8.2007, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Executables research

Цитата

а разве в делфи класс может быть не наследником TObject ?

А почему нет? Что мешает?

Как правило в дельфи-проектах класс создают так:
TMyClass = Class(тута родители или интерфейсы)

или же:

TMyClas2 = class

Что автоматически получаем хотя бы одного папу TObject.

Но есть возможность, создания и не от TObject

Это сообщение отредактировал(а) EvilsInterrupt - 29.8.2007, 19:22

--------------------

про реверсинг, вроде чтото даже интересно

MetalFan

Дата 29.8.2007, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(EvilsInterrupt @ 29.8.2007, 19:00

)

Но есть возможность, создания и не от TObject

ого! а в CodeGear то и не знают!

--------------------

There are always someone smarter than you...

Alexeis

Дата 29.8.2007, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

EvilsInterrupt, ни разу не слышал...

--------------------

EvilsInterrupt

Дата 29.8.2007, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Executables research

Alexeis, может я и туплю, но кажется это:

Код


  TMyClass = object

  end;

оставлено для обратной совместимости.

Компилется, что говорит о том что классы как они создавались в турбо паскале, не вымерли и вполне их можно применить ;)

То что RTTI нет , это уже другое! Но класс не от TObject возможен же ?! )))

Это сообщение отредактировал(а) EvilsInterrupt - 29.8.2007, 20:53

--------------------

про реверсинг, вроде чтото даже интересно

Sanchezzz

Дата 29.8.2007, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60

Код


type
  Tmy:=(TRain)
  procedure Execute;
// ....
end;

procedure TRain.Execute;
var
  my : TMy;
begin
while not Terminated do
  begin
      my := TMy.Create;    
  end;
end;

--------------------

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

Snowy

Дата 29.8.2007, 21:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Любой объект в конечном итоге наследуется от TObject.
Любой класс в конечном итоге наследуется от TClass.
TClass является class of TObject. То есть все инстансы класса в итоге наследники TObject.

Что касается данного вопроса - приведённая информация не имеет отношения к проблеме.
Из этого ответ: Недостаточно информации. Проблема не в этом коде. Ошибка в другом месте.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »