Aplicacion Multiformulario

[[Lepe]]

Como bien dices, hay métodos para convertir el variant, pero al usar dichas conversiones en el programa final, se enrolla mucho el código, por eso mismo creé esa unidad, es más práctico.

Yo lo veo usando un TObjectList con cada VariantElement, así quitaríamos el array que se crea siempre. Pero bueno, si de momento no te sirve... ahí queda para cualquiera.

En tu código hay algo que no entiendo muy bien:

Código Delphi [-]
procedure TExpertForm.ViewModal(OptionView: integer);
begin
 if (NOT Assigned(Self))
    then begin
           with Create(Application) do
             try

Assigned(Self) se refiere a la instancia de TEXpertForm; como siempre haremos algo así:

Código Delphi [-]
var EF :TExpertForm;
begin
 EF := TExpertForm.Create;
 EF.ViewModal(3);

El ExpertForm siempre estará creado, por tanto, jamás entrará en esa rama.

Si el ExpertForm no está creado previamente, delphi nos lanzará un access violation al intentar acceder al método ViewModal (o cualquier otro), antes de intentar ejecutarlo, por ende, tampoco le veo sentido a "With Create(Application)"

No entiendo muy bien la filosofía que sigues, ya que en principio debe existir una instancia de ese ExpertForm, quizás viendo el código del "programa de usuario" (el que usa el módulo ExpertForm), entendería la funcionalidad que quieres crear.

Saludos