Excepcion al comparar una clase en un if

[roman]

Empezado por delphi.com.ar

Mmmmm... en tu código cambiaste el as por un cast del tipo TClase(Variable), pero la finalidad es la misma.

Lo cambié precisamente por ser innecesario

// Saludos

[nefy]

Solo una duda, no causara problemas con otros componentes q tambien sean descendientes de TDataSet??. De hecho ya habia pensado de esa manera (usar TDataset como clase a compara), sin embargo como no tengo mucha experiencia al respecto decidi copiar el metodo del Moderador Loco Juan Antonio pues él en otro hilo me habia propuesto dicha rutina.

[delphi.com.ar]

Eso lo tienes que evaluar vos... si querés cerrar todos los datasets, el código de roman, si quieres solamente cerrar los TTable y TQuery´s y sus descendientes, tu código.

[roman]

Empezado por delphi.com.ar

si quieres solamente cerrar los TTable y TQuery´s y sus descendientes, tu código.

En cuyo caso yo cambiaría el nombre de la rutina de CerrarDataSets a CerrarTablesYQuerys.

[delphi.com.ar]

Empezado por roman

En cuyo caso yo cambiaría el nombre de la rutina de CerrarDataSets a CerrarTablesYQuerys.

!... ¡No me percaté de ese detalle!