Ошибка: Undeclared identifier: 'speedbutton1'

@cfbogd · Регистрация: 05.06.2016

Author24 — интернет-сервис помощи студентам

При разработке приложения столкнулся с проблемой. В нужно выполнить действия в разных местах. Решил создать процедуру и залить туда весь нужный мне код. При компилировании жалуется на имена компонентов. Что-то типа такого:

Код

[Error] un_main.pas(292): Undeclared identifier: 'speedbutton1'

Прописал все эти имена в скобки:

Delphi

1 2	procedure setsetting(image1:Timage; memo1,memo2:Tmemo;idHTTP1:TidHTTP; image2,image3,image4:Timage {и так далее и тому подобное});

Вроде бы проблема решена, но все равно не идёт из-за ошибки в этом месте:

Delphi

for i := 0 to ComponentCount - 1 do
begin
if (Components[i] is TLMDspeedbutton) then
(Components[i] as TLMDSpeedbutton).UsePNGGlyph:=true;
end;

Код ошибки:

Код

[Error] un_main.pas(314): Undeclared identifier: 'ComponentCount'
[Error] un_main.pas(316): Undeclared identifier: 'Components'
[Error] un_main.pas(355): Operator not applicable to this operand type
...

Помогите новичку)

@Puporev · 04.09.2016, 10:59

Объявите процедуры в разделе interface
примерно так.

Delphi

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure aaa(n:integer); //например здесь
  private
    { Private declarations }
  public
 
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.aaa(n:integer);
var i:Integer;
begin
Label1.Caption:='';
for i:=1 to n do
Label1.Caption:=Label1.Caption+chr(65+random(26));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
aaa(25);
end;

Добавлено через 4 минуты
Если объявлять в разделе implementation, то так.

Delphi

procedure aaa(n:integer);
var i:Integer;
begin
Form1.Label1.Caption:='';
for i:=1 to n do
Form1.Label1.Caption:=Form1.Label1.Caption+chr(65+random(26));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
aaa(25);
end;

@cfbogd · 04.09.2016, 12:36 **[ТС]**

Вы меня неправильно поняли... я не хочу дублировать код на каждую кнопку, а сделать процедуру и вызвать ее одной строчкой кода.
Например:

Delphi

procedure Tfm_main.SpeedButton1Click(Sender: TObject);
begin
setsetting;
end;

Добавлено через 5 минут
записал в interface, процедуру прочитало, но стоит на строке, которую я указал выше.

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

procedure setsetting(image1:Timage; memo1,memo2:Tmemo;idHTTP1:TidHTTP; image2,image3,image4:Timage {и так далее и тому подобное});

то что в скобках я удалил

Добавлено через 1 минуту
Все, запустилось

Благодарю за помощь!

@Puporev · 04.09.2016, 12:53

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

то что в скобках я удалил

Это параметры и их не удалять нужно, а заменять на фактические.

@cfbogd · 06.09.2016, 19:03 **[ТС]**

продолжаю тему, ибо без ошибки у меня не обошлось.

Я хочу сделать что то типа такого (пример) :

Delphi

procedure setsetting;
var   i:integer;
begin
button1.caption:='12';
memo1.Lines.Strings[0]:='95';
image1.Visible:=true;
end;

а потом в нужном мне месте прописать

Delphi

1	setsetting;

опишите плиз детально, а то я не понимаю этих процедур, что куда вводить. Да и что в скобки после объявления процедуры писать.
Заранее спасибо за ответ.

@D1973 · 07.09.2016, 07:12

cfbogd, Вам бы следовало для начала ознакомиться с базовыми концепциями ООП. Тема обширная, в двух словах на форуме не рассказать, поэтому придется книжку прочесть. А конкретно по Вашему вопросу в двух словах скажу:
Есть у Вас форма, на этой форме находятся различные компоненты. Все это объекты, описанные в различных классах. Но если класс формы описан непосредственно в Вашем модуле, то классы остальных компонентов описаны в других файлах. Чтобы получить доступ к описанию этих объектов, мы подключаем к своему проекту эти самые другие файлы. Для этого и используется секция uses
Каждый объект может реагировать на определенные системные события: список этих событий можно посмотреть в инспекторе объектов на закладке Events. Реакция объекта на событие описывается в специальной процедуре и называется методом класса.
Все компоненты, лежащие на форме, принадлежат этой самой форме и являются по отношению к ней дочерними объектами. Сама же форма является родительским объектом для всех объектов расположенных на ней. Иными словами, все конкретные объекты, их свойства и методы - все это включено в класс формы. Внутри класса все объекты могут "видеть" друг друга, обращаться к свойствам и методам других компонентов.
Теперь о Вашей проблеме: когда Вы пишите свою процедуру/функцию - она находится за пределами класса формы. Это означает, что все объекты, описанные в классе, для этой процедуры не доступны: она их просто не "видит", объекты "в домике"

Есть два пути решения:
1. Обратиться к "родителю", чтобы тот "дал разрешение пообщаться" с дочерним объектом: т.е. вместо прямого обращения

Delphi

1	button1.caption:='12';

Вы пишете:

Delphi

1	Form1.button1.caption:='12';

Не по теме:

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

2. Сделать свою процедуру методом класса.
включив свою процедуру в класс, мы добьемся того, что все объекты класса, их свойства и методы станут доступны для обращения: процедура становится "своей", а своим позволено гораздо больше, чем чужим
Как это реализовать:
1. Поместить описание процедуры в раздел private или public класса формы

Delphi

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    procedure setsetting;
  public
  end;

в разделе реализации заголовок Вашей процедуры должен выглядеть не просто так:

Delphi

procedure setsetting;
begin
...
end;

а с указанием класса, к которому отныне принадлежит наша процедура

Delphi

procedure Form1.setsetting;
begin
...
end;

Все это изложено в крайнем приближении и упрощении, но суть, я думаю, ясна.

Не по теме:

Не знаю, зачем все это пишу, если Puporev все это показал еще во 2-м посте

Ошибка: Undeclared identifier: 'speedbutton1'

Решение

Решение

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	04.09.2016, 12:53	4
	Сообщение от cfbogd то что в скобках я удалил Это параметры и их не удалять нужно, а заменять на фактические. 1