Question

delphi中TEdit 中多个组件如何运用？

Answer 1

//往窗体上托几个Tedit控件

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for I := 0 to ComponentCount - 1 do
begin
if (Components[I] is TEdit) then
Tedit(components[i]).Text :='统统改变';
end;
end;

Answer 2

?说明白点

追问

TEdit(Components[i]) 这个如何运用啊它是指一系列的TEDIT吗？

追答

这样理解吧：我可能想知道一系列品牌卖的最好的手机的价格是多少，比如说苹果的4S，或者NOKIA的某某手机，现在我可能还没确定是那个牌子，于是我可以弄个公式出来，比如说这样
m:=手机（某某牌子）.价格;如果我想求苹果的，我把某某一改，比如m:=手机（苹果）.价格,那么我就可以得出它的价格是5800，同理，TEdit(components[i]).text这样的也是这样，一个具体的components[I],它其实也是一个TEdit的一个具体对象，因为我们不可能这样写components[i].text，所以给它套个外套TEdit，表明这可是一个TEdit，因为TEdit才有某些特殊的属性，比如TEXT属性，所以就只好写TEdit(components[i]).属性了，一般这个语句先要判断是否属于TEdit，而且前面是一个循环，主要用于将所以的某一类型都设置为同一属性，比如将某个单元里的所有tedit的text都清空
for k := 0 to ComponentCount - 1 do
begin if (Components[I] is TEdit) then Tedit(components[k]).clear; end;