Delphi передача текста из memo в memo

[hauk70]

это не конец, на меня навесили еще задания))
В общем, кто пользуется notepad++ поймут, я создаю текстовый редактор и хочу создать его с вкладками(pagecontrol). Создание новых вкладок по нажатию на кнопку, и объекта ricgedit на них работает, но теперь до меня тупо не доходит как к ним обращаться :DDD
например сохранить активную вкладку в... открыть внешний текстовый файл и поместить в активную панель в ричедит... закрыть данную вкладку. Ну еще динамическое контекстное меню (копировать, вырезать, вставить и тд)

вот код создания по клику

procedure TForm6.N1Click(Sender: TObject);
var   tab : TTabSheet;
begin
tab:=TTabSheet.Create(PageControl1);
tab.PageControl:=PageControl1;
tab.Caption:='New'+inttostr(i);
inc(i);
with TRichEdit.Create(PageControl1) do
begin
parent:=tab;
ScrollBars:=ssVertical;
Align := alClient;
end;
end;

а вот загрузка файла в активную вкладку, но он ругается на адреса (да, диалоги мне лень выносить на форму, поэтому их тоже создаем)

procedure TForm6.N2Click(Sender: TObject);
var opendialog:Topendialog;
begin
Opendialog:=TOpenDialog.create(self);
openDialog.Filter:= 'Текстовый документ|*.txt';
n1.Click;
if OpenDialog.Execute then
TRichEdit(PageControl1.ActivePage.tag).lines.loadFromFile(OpenDialog.FileName);
end;

сохранение с той же проблемой.

procedure TForm6.N3Click(Sender: TObject);
var savedealog:Tsavedialog;
begin
savedealog:=Tsavedialog.create(self);
savedealog.Filter:= 'Текстовый документ|*.txt';
if savedealog.Execute then
TRichEdit(PageControl1.ActivePage.tag).lines.savetoFile(savedealog.FileName);
end;

почему-то буфер пустует, а если и полный, то ничего не отдает, помогите :3

procedure TForm6.N7Click(Sender: TObject);
begin
TRichEdit(PageControl1.ActivePage).CopyToClipboard;
end;

procedure TForm6.N9Click(Sender: TObject);
begin
TRichEdit(PageControl1.ActivePage).PasteFromClipboard;
end;

я уникум xDD создать создал, а толком обратиться не могу. Подскажите все нормально, в гугле мало про динамическое создание. Еще есть вопрос как закрыть вкладку?

[hauk70]

up
работает и вырубает активную вкладку

procedure TForm6.N5Click(Sender: TObject);
begin
PageControl1.ActivePage.Free;
end;

не работает и не врубает вообще ничего (хотя должна вырубить все кроме одной)

procedure TForm6.N6Click(Sender: TObject);
begin
while i<PageControl1.PageCount do
  begin
  pagecontrol1.Pages[i].Free;
  inc(i);
  end;
end;

[BDA]

Вот)
Не уверен в удалении, так как не очень разбираюсь в удалении динамически созданных объектов.

[hauk70]

Ну чтож, спасибище огромное :3 сейчас всё буду пихать в свой редактор. но мне непонятно в

TRichEdit(PageControl1.ActivePage.Controls[0]).PasteFromClipboard;

что такое

Controls[0]

как я понял это из-за него не работало корректно :D

[BDA]

http://www.az-design.ru/index.shtml?...Delphi/D3/SB38
Как я понимаю, это массив всех vcl элементов, принадлежащих выбранному (могу и ошибаться ).
Так обращаться к richedit можно только если других компонентов в tabsheet не будет (иначе, наверное, придется перебирать все компоненты активной страницы в поиске richedit).

[Zoomer123]

Создаешь цикл
Цикл ограничивается числом строк в мемо (memo1.lines.count)
Тело цикла: берешь первую [0] строку из мемо1, декодируешь ее, вписываешь в мемо2, удаляеешь из мемо1.цикл повторяется

Если что пиши icq 115557, покажу на примере

[hauk70]

Zoomer123, если что, то проект уже завершен до своего логического конца :3
но мне все еще интересно его кое-как доработать, как заставить загружать *.тхт в поле (например мемо или ричедит) при перетаскивании файла мышкой в само поле =)

вот это чудо за которое я получил свой высший бал :О пароль "1"

[BDA]

http://delphiworld.narod.ru/base/wm_dropfiles.html
Вот неплохая статейка.