Использование компонентов в своей процедуре

[Clition]

Добрый день!

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

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

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

[Clition]

Проблема решена Form1.RichEdit1.Text:='';

[Serge_Bliznykov]

нужно процедуру ClearText сделать МЕТОДОМ класса (той формы, где у Вас находится RichEdit1

для этого напишите в списке методов:

type
  TForm1 = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ClearText;
  private
    { Private declarations }

потом нажмите на этой строчке сочетание клавиш Ctrl-Shift-C
появится такой код:

procedure TForm1.ClearText;
begin

end;

обратите внимание, теперь процедура ClearText является методом класса TForm1 (в котором мы её и описали).
тут и пишите свой код.



либо, если Вы понимаете, что делаете, можно банально указать, откуда берётся RichEdit1:

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