[Мишка-90]

Здравствуйте, столкнулся с такой проблемой.. при создании любого динамического объекта возникает ряд ошибок:

Код:

[Error] Unit1.pas(28): Undeclared identifier: 'TEdit'

к примеру, хотя код вроде правильный..

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  i,EDcount:Cardinal;
  ED:TEdit;
begin
EDcount:=10; // количество создаваемых едитов
for i:=1 to EDcount do
  begin
    ED:=TEdit.Create(Self);
    ED.Parent:=Form1;
    ED.Left:=10;
    ED.Top:=(ED.Height*i)+2;
    ED.Name:='DynCrtEdit'+IntToStr(i);
  end;

end;

мне нужно создать динамически label и StaticText.. но из-за этих ошибок ничего не получается, где я ошибаюсь?

label создавал так:

Код:

MyLabel := TLabel.create(form1);
MyLabel.parent := form1

[Страдалецъ]

Не подключен юнит с орписанием класса TEdit. Бросьте на форму компонент TEdit и удалите его, нужный юнит подключится автоматом.

[ART]

Нет модулей наверное нужных )

[Мишка-90]

если кидаю компонент на форму, тот же самый эдит, то подключаю.. если удаляю его, то опять беда.. =(

спасибо за совет, пользуюсь

[Janom]

Код:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

[Страдалецъ]

Вообще-то странно. Удаление из кода автоматом происходит уже оптимизатором при компиляции, а в вашем случае обращение к классу есть и оптимизатор не должен трогать этот юнит.

[Мишка-90]

после того как разобрался с этим делом.. юнит сам себя решил добавить в юзес.. наверное делфи глюкнуло.. все ровно огромное спасибо что откликнулись и помогли))))