Проблемы с TObjectList

[lexaltd]

Мне нужно создавать динамически TEdit и добавлять в TObjectList , чтоб можно было работать с Edit’ами , как с элементами массива - типа так

 
EditList: TObjectList;

EditList[2].Text := '111';

Делаю так:

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
   TEditList = class(TObjectList)
  private
    function GetItems(Index: Integer): TEdit;
    procedure SetItems(Index: Integer; const Value: TEdit);

  public
    property Items[Index: Integer]: TEdit read GetItems write SetItems; default;
  end;

var
  Form1: TForm1;
  EditList: TObjectList;
  i: integer = 1;
  flag : boolean = true;
implementation

{$R *.dfm}

{ TEditList }

function TEditList.GetItems(Index: Integer): TEdit;
begin
  Result := TEdit(inherited GetItem(Index));
end;

procedure TEditList.SetItems(Index: Integer; const Value: TEdit);
begin
  inherited SetItem(Index, Value);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Edit: TEdit;
begin
 if flag then
  EditList := TObjectList.Create(true);
  Edit := TEdit.Create(self);
  Edit.Parent := self;
  Edit.Top := i;
  Edit.Left :=  40;
  Edit.Name := Edit.ClassName + IntToStr(i);
  EditList.Add(Edit);
  i := i + 20 ;
 flag := false;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 EditList[1].Text := '111'; // Тут ошибка -  EditList не присвоился класс TEdit
end;

Извеняюсь не точно написал - ошибка вылетает при компиляции (не объявленый индефикатор Text), EditList не присвоился класс TEdit , и у EditList нету свойств TEdit

EditList.Items[1].Text - тоже не получается

EditList[1].Text или EditList.Items[1].Text - мне кажется одинаковое выражения

Подскажите в чём ошибка
Зарание спасибо

[Пепел Феникса]

1)а как у тебя может в List'е второй обьект получится, если ты при каждом нажатии этот самый Лист пересоздаешь?
2)попробуй EditList.Items[2].Text использовать, помоему так должно быть

[Квэнди]

EditList: TObjectList; откуда у Tobject свойство Text ? это свойство есть у Tedit.
Если используешь среду до D2009 , то необходимо просто явно привести к необходимому типу:

(EditList[1] as tedit).Text := '111';

Если используешь D2009 то лучше воспользоваться generic

list: Tobjectlist<Tedit>;

[lexaltd]

Сообщение от Квэнди

EditList: TObjectList; откуда у Tobject свойство Text ? это свойство есть у Tedit.
Если используешь среду до D2009 , то необходимо просто явно привести к необходимому типу:

(EditList[1] as tedit).Text := '111';

Если используешь D2009 то лучше воспользоваться generic

list: Tobjectlist<Tedit>;

Ипользую Delphi 7
Пытался делать как приведенно в примере http://forum.vingrad.ru/articles/topic-97983.html

Там написано(цитирую):

"Нужно создать свой собственный класс, который будет потомком TObjectList. Для этого требуется перекрыть методы SetItems и GetItems. В интерфейсной части модуля, после слова type, пропишите такой код:"

type
   TEditList = class(TObjectList)
  public
    property Items[Index: Integer]: TEdit read GetItems write SetItems; default;
  end;

"и нажмите Ctrl+Shift+C. В конце модуля сгенерируется:"

function TEditList.GetItems(Index: Integer): TEdit;
begin
  Result := TEdit(inherited GetItem(Index));
end;

procedure TEditList.SetItems(Index: Integer; const Value: TEdit);
begin
  inherited SetItem(Index, Value);
end;

"Теперь у нас есть класс, предназначенный для хранения TEdit’ов."

"Теперь можно работать с Edit’ами так же, как с элементами массива"

EditList[2].Text := '111';

Может я не так понял ???

[Квэнди]

не так.

EditList.items[2].Text := '111';

[lexaltd]

Сообщение от Квэнди

не так.

EditList.items[2].Text := '111';

EditList.Items[1].Text - тоже не получается

EditList[1].Text или EditList.Items[1].Text - мне кажется одинаковое выражения

Я в самом верху уже писал

P.S. Там вверху я написал полностью код , можно вставить и посмотреть

[Квэнди]

Чем вас не устроил вариант в 3