比如，有100个edit，命名为edit1到100，怎么用循环让每一个edit的文本清空？

for i:=0 to parent.controlscount-1;
if parent.controlscount[i] is tedit then
begin
(parent.controlcount[i] as tedit).text:='';
end;

控件数组

@ooooh_up
我前面说的不太清楚的问题现在遇到了，让我举例来说明吧。非常感谢你前面的作答！
var
i, j: integer;
myMemo: array [1 .. 4, 1 .. 10] of string;
//或者是否需要这样声明
//myMemo: array [1 .. 4, 1 .. 10] of TMemo;
begin
for j := 1 to 10 do
begin
for i := 1 to 4 do
begin
myMemo[i, j] := ('Memo' + Char(j + 64) + IntToStr(i));
end;
end;
请问现在如何实现
myMemo[1, 1].Text := '';
这个效果呢？

另外，我这些Memo分别再PageControl1控件的多个页面上，动态生成的方法可能会有点麻烦了，所以最好这样使用。还有，好多地方都要动态的指定要操作特定的某一个Memo进行操作，再次麻烦你，非常感谢！（前面的内容被度娘被删了，已经申请恢复，可能需要时间。我给您发私信了，麻烦回复一下！）