ComponentCount 清空所有文本框的值

 

 

 

{--不让第一条记录显示到文本框中 cyj 2009-8-25 --}
procedure TFmELBill.ClearFirstRecord;
var
  i: Integer;
begin
  
  for i := 0 to ComponentCount -1 do
  begin
    if Components[i] is TwwDBEdit then
    begin
      (Components[i] as TwwDBEdit).text := '';
    end
    else
     if Components[i] is TwwDBLookupComboDlg then
    begin
      (Components[i] as TwwDBLookupComboDlg).text := '';
    end
    else
       if Components[i] is TwwDBComboBox then
    begin
      (Components[i] as TwwDBComboBox).text := '';
    end
    else
       if Components[i] is TwwDBDateTimePicker then
    begin
      (Components[i] as TwwDBDateTimePicker).text := '';
    end
     else
       if Components[i] is TwwDBComboDlg then
    begin
      (Components[i] as TwwDBComboDlg).text := '';
    end;

  end;
end;