delphi解读

来源:百度知道 编辑:UC知道 时间:2024/07/01 01:26:07
for K:=1 to 7 do
if FindComponent('edit'+inttostr(K)) is TEdit then
begin
Tedit(FindComponent('edit'+inttostr(K))).Text:='';
Tedit(FindComponent('edit'+inttostr(K))).Enabled:=false;
//所有X,Y,Z ... 编辑框不可输入...
end;
memo1.Lines.Clear;
letters:=TStringList.Create;
letters.Add('-'); //init 0
letters.Add('X');

//按照窗口上edit1 到edit7 的顺序添加,
//如果有更多,请保证这里的顺序和窗口上一致.
letters.Add('Y');
letters.Add('Z');
letters.Add('T');
letters.Add('L');
letters.Add('J');
letters.Add('Q');
gongshi:='';
end;

Tedit(FindComponent('edit'+inttostr(K))).Text:='';
Tedit(FindComponent('edit'+inttostr(K))).Enabled:=false;

是指将窗口上edit1 ---edit7 的编辑框清空,设置为不可用..

etters.Add('Y');
letters.Add('Z');
letters.Add('T');
letters.Add('L');
letters.Add('J');
letters.Add('Q');

这里是控制主页面上的Edit的.
X对应Edit1 以此类推...