Developing.ru

Хочу создать массив Memo и потом их отобразить на форме.

var
AvtoGen: TAvtoGen;
MemoArray: Array of TMemo;

implementation

{$R *.dfm}

procedure TAvtoGen.Button1Click(Sender: TObject);
var
i: integer;

begin
SetLength(MemoArray, StrToInt(LabeledEdit1.Text));

For i:=0 to StrToInt(LabeledEdit1.Text)-1 do begin
MemoArray := TMemo.Create(MemoArray);
end;

end;


Вот только как верно сделать и как потом их отобразить на форме?

лучше используй TList. делай примерно так:
.......
var
ls:TList;
........
procedure СозданиеКомпонентов;
var
i:integer;
begin
ls:=TList.Create;
for i:=0 to 10 do
begin
ls.Add(TMemo.Create(Self));
With ls.Items[ls.Count-1] as TMemo do
begin
Parent:=Self;
Left:=i*30;
Top:=10;
Visible:=True;
end;
end;
end;

procedure УдалениеКомпонентов;
var
i:integer;
begin
for i:=0 to ls.Count-1 do TMemo(ls.Items).Free;
ls.Free;
end;

Blood_Magic,
А почему именно его? Я с такими классами немного работал, чем они лучше?

Nikoshka писал(а):Blood_Magic,
А почему именно его? Я с такими классами немного работал, чем они лучше?

Это готовый список, не надо самому ничего описывать, динамически память он выделяет сам, короче то же что и StringList, только умеет хранить все подряд