[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

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

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