procedure TForm1.Button1Click(Sender: TObject); var i,j :integer; begin J:=0; For i:=0 to ComponentCount-1 do begin if (Components[i] is TEdit) then inc(j); end; showmessage(inttostr(j)); end;
procedure TForm1.Button1Click(Sender: TObject); var i,j :integer; begin J:=0; For i:=0 to ComponentCount-1 do begin if (Components[i] is TEdit) then begin inc(j); TEdit(Components[i]).text:='';//清空 end; end; showmessage(inttostr(j)); end;
procedure Tform_providerinfo.closeedit; //关闭所有dbedit var i:integer; begin for i:=0 to self.ComponentCount-1 do begin if (components[i] is Twincontrol) then begin if (components[i] as Twincontrol).Parent=form1 then begin if (components[i] is Tedit) then (components[i] as Tedit).clear; end; end; end;
只可查在form 上的edit procedure TForm1.Button1Click(Sender: TObject); var i, j: Integer; begin SetLength(Edits, 0); j := 0; for i := 0 to Form1.ControlCount - 1 do if(form1.Controls[i] is TEdit) then begin if (j >= Length(Edits)) then begin SetLength(Edits, Length(Edits) + 1); Edits[j] := TEdit(form1.Controls[i]); Inc(j); end; end; end;procedure TForm1.Button2Click(Sender: TObject); var i: Integer; begin for i := 0 to Length(Edits) -1 do Edits[i].Clear; end;
drift1981(一包香烟,一把吉他,浪迹天涯!) 就行了 procedure TForm1.Button1Click(Sender: TObject); var i,j :integer; begin J:=0; For i:=0 to ComponentCount-1 do begin if (Components[i] is TEdit) then begin inc(j); TEdit(Components[i]).text:='';//清空 end; end; showmessage(inttostr(j)); end;
procedure Tform_providerinfo.closeedit; //关闭所有dbedit var i:integer; begin for i:=0 to self.ComponentCount-1 do begin if (components[i] is Twincontrol) then begin if (components[i] as Twincontrol).Parent=form1 then begin if (components[i] is Tedit) then (components[i] as Tedit).clear; end; end; end; end;chinaandys(风流泪,雨含笑) 提倡这样写代码{sorry}
procedure TForm1.Button1Click(Sender: TObject); var i,j :integer; begin J:=0; For i:=0 to ComponentCount-1 do begin if (Components[i] is TEdit) then inc(j); end; memo1.Lines..add(inttostr(j)); end;
//接分 procedure TForm1.Button1Click(Sender: TObject); var i,j :integer; begin J:=0; For i:=0 to ComponentCount-1 do begin if (Components[i] is TEdit) then Begin inc(j); (Components[i] as TEDIT).Text:=''; End; end; showmessage(inttostr(j)); end;
J:=0; For i:=0 to ComponentCount-1 do begin if (Components[i] is TEdit) then Begin inc(j); (Components[i] as TEDIT).Text:=''; End; end; showmessage(inttostr(j)); end;
var i,j :integer;
begin
J:=0;
For i:=0 to ComponentCount-1 do
begin
if (Components[i] is TEdit) then
inc(j);
end;
showmessage(inttostr(j));
end;
var i,j :integer;
begin
J:=0;
For i:=0 to ComponentCount-1 do
begin
if (Components[i] is TEdit) then
begin
inc(j);
TEdit(Components[i]).text:='';//清空
end;
end;
showmessage(inttostr(j));
end;
procedure Tform_providerinfo.closeedit; //关闭所有dbedit
var
i:integer;
begin
for i:=0 to self.ComponentCount-1 do
begin
if (components[i] is Twincontrol) then
begin
if (components[i] as Twincontrol).Parent=form1 then
begin
if (components[i] is Tedit) then
(components[i] as Tedit).clear;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
begin
SetLength(Edits, 0);
j := 0;
for i := 0 to Form1.ControlCount - 1 do
if(form1.Controls[i] is TEdit) then
begin
if (j >= Length(Edits)) then
begin
SetLength(Edits, Length(Edits) + 1);
Edits[j] := TEdit(form1.Controls[i]);
Inc(j);
end;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Length(Edits) -1 do
Edits[i].Clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j :integer;
begin
J:=0;
For i:=0 to ComponentCount-1 do
begin
if (Components[i] is TEdit) then
begin
inc(j);
TEdit(Components[i]).text:='';//清空
end;
end;
showmessage(inttostr(j));
end;
var
i:integer;
begin
for i:=0 to self.ComponentCount-1 do
begin
if (components[i] is Twincontrol) then
begin
if (components[i] as Twincontrol).Parent=form1 then
begin
if (components[i] is Tedit) then
(components[i] as Tedit).clear;
end;
end;
end;
end;chinaandys(风流泪,雨含笑) 提倡这样写代码{sorry}
var i,j :integer;
begin
J:=0;
For i:=0 to ComponentCount-1 do
begin
if (Components[i] is TEdit) then
inc(j);
end;
memo1.Lines..add(inttostr(j));
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j :integer;
begin
J:=0;
For i:=0 to ComponentCount-1 do
begin
if (Components[i] is TEdit) then
Begin
inc(j);
(Components[i] as TEDIT).Text:='';
End;
end;
showmessage(inttostr(j));
end;
For i:=0 to ComponentCount-1 do
begin
if (Components[i] is TEdit) then
Begin
inc(j);
(Components[i] as TEDIT).Text:='';
End;
end;
showmessage(inttostr(j));
end;