如何检验所有的Edit控件都不空

Question

procedure TfrmMain.CheckEdit;
var
 iIndex: Integer;
begin
  for iIndex := 0 to ComponentCount - 1 do begin
   if Components[iIndex] is TEdit tehn begin
     if TEdit(Components[iIndex]).Text = '' then begin
       ShowMessage(TEdit(Components[iIndex]).Name + '不能为空');
     end;   
   end;
  end;
end;

Answer 1

var 
i:integer; 
begin 
for i:=0 to ComponentCount - 1 do 
begin 
if Components[i] is TEdit then 
begin 
TEdit(Components[i]).ReadOnly:=false;
end;

Answer 2

for i=0 to componentcount 
  if component.classname=tedit then 
       //检验

Answer 3

var i:integer;
begin
for i:=0 to componentcount-1 do
  if (components[i] is tedit) then
       tedit(components[i]).text:='asdf';
end;

Answer 4

你可以将TEdit全放在TPancel上(或其它的Parent上)，用
(Controls[i] as TEdit).Text是不是更好些呢？