Инкапсуляция

← →
nft (2004-02-28 00:35) [0]

Всем привет ! Народ, помогите кто знает, инкапсуляция у меня в Дельфях 6, ну ни как не получается, вообшем делаю следующее --->

type
THello = class
Hi: real;
By: real;
function HelloWorld: real;
end;

далее описываю действия функции HelloWorld, а потом к примеру
на нажатие кнопки ---

var
a: THello;
begin
a:= a.Create;
a.Hi:= 0.07;
a.by:= a.helloworld;
a.destroy
end;

Вроде всё нормально, но выскакивают различные accses violation и тому подобное в огромных кол-вах, причём бывает что значение получается, функция срабатывает, но при закрытии программы такие ощибки невероятные выскакивают, я уже всё перепробовал, не знаю в чём дело, друзья от слов инкапсуляция начинают шарахаться, вообщем в у чебниках одни справки да и только, если кто знает, скажите как сделать правильно pleazzzzzzzzzze !!!

← →
Palladin (2004-02-28 00:39) [1]

Учимся создавать объекты
http://www.delphikingdom.com/helloworld/runtime_comp.htm

и кстати причем тут инкапсуляция?

← →
Defunct (2004-02-28 00:45) [2]

> и кстати причем тут инкапсуляция?

Это чтобы больше народу заглянуло. ;)

← →
VMcL (2004-02-28 02:05) [3]

>>Palladin © (28.02.04 00:39) [1]

Слово красивое. Я бы еще в заголовок, чтоб привлечь внимание, "полиморфизм" вставил - еще красивше.

← →
nft (2004-02-28 02:10) [4]

При чём тут run-time ??? а инкапсуляция это тогда что в вашем понимании интересно знать ???

← →
Palladin (2004-02-28 02:25) [5]

А вот после этого перла в орешник однозначно.

> Defunct © (28.02.04 00:45) [2]

не говори :)

> VMcL © (28.02.04 02:05) [3]

:) ну тогда и третий "кит", наследование...

Инкапсуляция, наследование, полиморфизм
Почему объект не создается?
a:=a.create;

← →
nft (2004-02-28 02:29) [6]

Вы не ответили на вопрос. Или не можете ? а про 3х китов я и так знаю, спасибо. *_*

← →
Palladin (2004-02-28 02:29) [7]

> nft (28.02.04 02:10) [4]

Кстати говоря, соблюдай рекомендацию №7. Хоть у тебя и знаки вопроса, а не восклицательные. Суть от этого не меняется.

← →
Palladin (2004-02-28 02:31) [8]

> nft (28.02.04 02:29) [6]

Я тебе еще в первом посте ответил. Будь добр почитай. Беглое сравнение кода приведнного в статье и твоего приведет тебя к твоей ошибке.

← →
nft (2004-02-28 02:36) [9]

Да, но run-time мне не нужен, в run-time я более менее уже работал,
здесь я не компонент пытаюсь создать, всего лишь обьект, не знаю может я ошибаюсь, но нельзя ли сказать в чём всё таки ошибка ???

P.S.
И всё таки инкапсуляция здесь есть, да конечно я её на фонарь в заголовок кинул, но она есть :)

← →
Palladin (2004-02-28 02:38) [10]

> nft (28.02.04 02:29) [6]

или ты про инкапсуляцию спрашивал...

дело не в понимании инкапсуляции, а в том что твоя проблема никакого отношения к ней не имеет

← →
Palladin (2004-02-28 02:39) [11]

> nft (28.02.04 02:36) [9]

Не ну всеже ну почитай очень тебя прошу. Или пролистни хоть до первого примера. Если этот пример тебе ни очем не скажет, прости прощай.

← →
Германн (2004-02-28 02:50) [12]

2 nft (28.02.04 00:35)

Ну вот для начала попробуй русским(но не матерным) языком объяснить слеущие строчки твоего вопроса:

>var
>a: THello;
>begin
>a:= a.Create;

А, особенно, последнюю из них! (Токмо забудь сперва об "икапсуляциях" и др. "красиво звучащих" терминах).

Токмо попробуй ответить "красивше", тогда в орешнике добавится действительно перл!

← →
nft (2004-02-28 03:20) [13]

Переменно а присвоил значение созданного объекта THello;
Затем создаю объект a:= a.Create
Потом присваиваю значения переменным объекта THello
a.Hi:= 0.07;
a.by:= a.helloworld;
И наконец перед выходом уничтожаю объект
a.destroy
Но почему то вылазят ошибки, я не знаю точно как правилоно создать и использовать объект, может чегото не хватает ???
ЗЫ При чём тут run-time я всё же не пойму, ну да там тоже создание, но объект таким образом не создасться.

← →
Defunct (2004-02-28 03:24) [14]

> Затем создаю объект a:= a.Create

A := THello.Create

ЧИТАЙТЕ ЛИТЕРАТУРУ БОЛЕЕ ВНИМАТЕЛЬНО!
Смотрите на примеры, поставляемы с Delphi.

← →
Palladin (2004-02-28 04:27) [15]

дайте гвоздь...

Инкапсуляция Найти похожие ветки