Проблема с названием компонентов в delphi

[BuT@JL]

Попробую объяснить:У меня на форме распологается иного компонентов MEMO, и есть переменная "a" (ей присвоен номер нужного Memo ).
Мне нужно записать текст в нужный MEMO

Memoa.text:='edcdsc'; - так конечно не прокатит ))

Как в нужное мне MEMO записать текст?

Надеюсь, что я правильно донес суть вопроса ))

[Levsha100]

FindComponent

FindComponent('Memo' + IntToStr(i)) as TMemo).text

[BuT@JL]

Levsha100 спасибо

[BuT@JL]

только он почему то находит все memo, которые расположен на самой форме, а тех, которые расположены в PageControl он не находит???
Не знаешь как это исправить???

На всякий случай: В PageControl я создавал Memo с помощью в этого:
for j:=0 to a-1 do begin
with tmemo.create(application) do
begin
Parent := PageControl.Pages[j];
name:='Memo'+inttostr(j+1);
Left := 5;
Top := 12;
Width := 728;
Height := 70;
end;
Может в этом проблема???

[BuT@JL]

Ну кто нибудь поможет... help me!!!

[Neobrat]

ну можешь пробижаться циклом по PageControl

procedure TForm1.BitBtn1Click(Sender: TObject);
var ixPages,ixControl:integer;
Pages:TTabSheet;
MyMemo:TMemo;
begin
for ixPages:=0 to PageControl1.PageCount-1 do
begin
Pages:=PageControl1.Pages[ixPages];
for ixControl:=0 to Pages.ControlCount-1 do
if Pages.Controls[ixControl] is TMemo then MyMemo:=Pages.Controls[ixControl] as TMemo;
end;
end;

MyMemo и есть твой найденый memo делай дальше с ним что хочешь

[BuT@JL]

А как сделать это: найти нужную вкладку по индексу, и скрыть её????

[Neobrat]

найто то вот просто

ixPages - идекс вкладки

PageControl1.Pages[ixPages] твоя вкладка..

а вот как сделать ее невидимой...
PageControl1.Pages[ixPages].Visible:=false; правдо это не скроет вкладку а только сделает на ней все компаненты невидимыми, и то если переключиться с одной вкладки обратно на эту все станет видимое..

вообшем там геморно.. если она в дальнейшем нафиг не нужна будет то просто удали ее...

PageControl1.Pages[ixPages].free;

иначе ищи или жди дальше )))
могу предположить сначало вкладку куда нить сохранить и удалить ее из PageControl а потом при не обходимости востановить ее..

но учти что при PageControl1.Pages[ixPages].free; индексация поменяеться))

[BuT@JL]

Просто вот так PageControl1.Pages[ixPages], я написать не могу потому что PageControl1 у меня еще не создан (делфи ругается неверный индификатор PageControl1). Я ведь её создаю PageControl1 при запуске приложения... извини что сразу не объяснил

[Neobrat]

ну можешь как тебе предлагали выше

var PageControl:TPageControl - найденый контрол
ControlIndex:integer; его индекс

PageControl:=FindComponent('PageCon trol' + IntToStr(ControlIndex)) as TPageControl;

можешь также как и раньше циклом обойти все..

for ix:=0 to Form1.ControlCount-1 do
begin
if Form1.Controls[ix] is TPageControl then PageControl:=Form1.Controls[ix] as TPageControl;
end;