Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to Self.ComponentCount - 1 do if Self.Components[i] = TDBEdit then if TDBEdit(Components[i]).Text = '' then Raise Exception.Create('Los datos no son válidos) end;
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to Self.ComponentCount - 1 do if Self.Components[i] = TDBEdit then if TDBEdit(Components[i]).Text = '' then Raise Exception.Create('Los datos no son válidos) end;