[Clition]

Добрый день!

Как в своей процедуре обратиться с свойству объекта? Например, хочу создать процедуру ClearText(); в которой хочу обратиться к RichEdit1.Text. Пишу:

procedure ClearText();
begin
RichEdit1.Text:='';
end;

компилятор ругается на [Error] Unit1.pas(58): Undeclared identifier: 'RichEdit1'. Как нужно сделать правильно?

[poli-smen]

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

Добрый день!

Как в своей процедуре обратиться с свойству объекта? Например, хочу создать процедуру ClearText(); в которой хочу обратиться к RichEdit1.Text. Пишу:

procedure ClearText();
begin
RichEdit1.Text:='';
end;

компилятор ругается на [Error] Unit1.pas(58): Undeclared identifier: 'RichEdit1'. Как нужно сделать правильно?

А ты RichEdit1 создал? Компилятор тебе пишет, что нет такого идентификатора.

[Clition]

Да, он создан, но видимо он вне области видимости моей функции.

[poli-smen]

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

Да, он создан, но видимо он вне области видимости моей функции.

Скорее всего так и есть. Если он лежит на форме, то нужно указать на какой форме он лежит (ведь на каждой форме может быть по своему RichEdit1 - откуда компилятору знать к какому ты хочешь обратиться). В простом случае указываешь что-то типа Form1.RichEdit1. Но это не лучший вариант! Крайне желательно к объектам формы обращаться не из обычных процедур, а из методов самой формы (например из обработчиков событий типа Button1Click). И в них не нужно указывать Form1.

[Clition]

Вы правы, это решило проблему.

Крайне желательно к объектам формы обращаться не из обычных процедур, а из методов самой формы (например из обработчиков событий типа Button1Click)

Функция должна вызываться из разных обработчиков.

[poli-smen]

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

Вы правы, это решило проблему.

Функция должна вызываться из разных обработчиков.

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

Код:

procedure ClearText();
begin
  Form1.RichEdit1.Text:='';
end;

А так:

Код:

procedure TForm1.ClearText();
begin
  RichEdit1.Text:='';
end;

[robt]

Сообщение от poli-smen

Крайне желательно к объектам формы обращаться не из обычных процедур, а из методов самой формы (например из обработчиков событий типа Button1Click).

глупость
......

[poli-smen]

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

глупость
......

Глупость говорить, что это глупость.

[robt]

Сообщение от poli-smen

Глупость говорить, что это глупость.

нену это реально глупость, которую ты сам придумал,вот еслибы это было рекомендация из самой дельфи тогда другое дело

[poli-smen]

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

нену это реально глупость, которую ты сам придумал,вот еслибы это было рекомендация из самой дельфи тогда другое дело

Т.е. "сама дельфи рекомендует" обращаться к объектам формы таким образом?:

Код:

  Form1.RichEdit1.Text:='';

[robt]

Сообщение от poli-smen

Т.е. "сама дельфи рекомендует" обращаться к объектам формы таким образом?:

Код:

  Form1.RichEdit1.Text:='';

а почему нет? можно еще модуль дописать Unit1.Form1.RichEdit1.Text:=''

[poli-smen]

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

а почему нет? можно еще модуль дописать Unit1.Form1.RichEdit1.Text:=''

Я же не говорил, что нельзя. Я написал, что с объетами формы желательно обращаться внутри самой формы (инкапсуляция), без использования глобальной переменной Form1.
Если нужны рекомендации, то вот рекомендую почитать: http://www.gunsmoker.ru/2011/04/blog-post.html

[M.A.D.M.A.N.]

poli-smen, пользователь robt - тролль с комплексом наполеона, он толсто троллит всех, кто знает/не знает дельфи, просто забейте на него.

[robt]

Сообщение от poli-smen

Я же не говорил, что нельзя. Я написал, что с объетами формы желательно обращаться внутри самой формы (инкапсуляция), без использования глобальной переменной Form1.
Если нужны рекомендации, то вот рекомендую почитать: http://www.gunsmoker.ru/2011/04/blog-post.html

прежде чем рекомендовать советы псевдогуру который просто излагает свое видение,что не означает что он прав и именно так должно быть
прочитай лучше первоисточники http://docwiki.embarcadero.com/RADSt...and_Qualifiers

а заодно осознай что вся шняга связанная с ООП и прочими инкапсуляциями существует только в исходном коде,а в бинарнике на выходе будет сплошной GOTO который тоже все "любят"

[Pyro]

http://blog.evseev.ru/2009/11/low-of-demeter.html
http://ru.wikibooks.org/wiki/%D0%9D%...82%D1%80%D0%B0