Question

delphi的超简单问题：控件序号能否用表达式？

richEdit5.Lines.LoadFromFile();

上面的richEdit控件序号5能否用表达式替代？因为每个richedit控件分别在pagecontrol的不同标签页上，当选中某一个TabSheet时我想通过PageControl1.ActivePageIndex决定相应的该标签页上的richedit控件。应怎样写呢？（richEdit+PageControl1.ActivePageIndex）。lines 肯定不行。请高手指教一下。

Answer 1

可以。
建立临时richEdit变量，对临时变量进行操作进行了。
var
tmpRichEdit : TrichEdit;
begin
tmpRichEdit = TrichEdit(FindComponent('richedit'+ inttostr(PageControl1.ActivePageIndex)));
.......针对tmpRichEdit的所有操作都会反映到你的目的richEdit上，例如：
temprichEdit.text = '123';
end

Answer 2

richEdit 动态创建，然后放到ComponentList里，然后使用ComponentList的index进行访问也是一种方式。

Answer 3

TrichEdit(FindComponent('richEdit'+IntToStr(PageControl1.ActivePageIndex))).Lines.LoadFromFile();