Entender las excepciones y Eurekalog?

[Javierus]

Yo todos los forms los creo con

Código Delphi [-]
Application.CreateForm(TClaseDelForm, aForm);

Ejemplo para un form Modal, usando caFree:

Código Delphi [-]
function ShowFormModal(ClaseFormulario:TFormClass):TmodalResult;
var
  Formulario: TForm;
begin
  Application.CreateForm(ClaseFormulario, Formulario);
  Try
    result:=Formulario.ShowModal;
    //aquí el Formulario ya no existe; no accedas a ninguna de sus propiedades o métodos
  Except
    result:=mrCancel;
    Formulario.Release;
  end
end;

Ejemplo para un form Modal, usando caHide:

Código Delphi [-]
function PedirDatos(var Nombre,Direccion:string):boolean;
var
  Formulario: TFormNombreDireccion;
begin
  Application.CreateForm(TFormNombreDireccion, Formulario);
  Try
    result:=(Formulario.ShowModal=mrOk);
    //aquí el Formulario aún existe; simplemente es invisible
    if result then begin
      Nombre:=Formulario.edtNombre.Text;
      Direccion:=Formulario.edtDireccion.Text;
    end;
  finally
    Formulario.Release;  //Hay que liberarlo sí o sí, porque no se destruirá solo
  end
end;

Ejemplo para un form NO Modal, es mejor que uses caFree; otra cosa es complicarse la vida:

Código Delphi [-]
procedure ShowForm(ClaseFormulario:TFormClass);
var
  Formulario: TForm;
begin
  Application.CreateForm(ClaseFormulario, Formulario);
  Try
    Formulario.Show;
  Except
    Formulario.Release;  //Solo lo destruimos nosotros si da error el Show
    raise;  //Y volvemos a relanzar la excepción
  end
end;

[amadis]

Gracias a todos por sus aportes.

Yo siempre creé los forma así

Código Delphi [-]
Application.CreateForm(ClaseFormulario, Formulario);

Que era como el mismo delphi crea los forms automáticamente.

Pero después leyendo había visto que esa forma acarrea leaks mas facilmente.

[Javierus]

No sé de dónde sacas que acarrea leaks más fácilmente; no estoy de acuerdo.
Pero cada uno tenemos nuestras formas preferidas de programar

Empezado por amadis

Gracias a todos por sus aportes.

Yo siempre creé los forma así

Código Delphi [-]
Application.CreateForm(ClaseFormulario, Formulario);

Que era como el mismo delphi crea los forms automáticamente.

Pero después leyendo había visto que esa forma acarrea leaks mas facilmente.

[amadis]

Que tal compañeros

Yo sigo sin entender al EUREKLOG.

Me encuentra MEMORY LEAK en la linea de creacion de este reporte de quickreport

Código Delphi [-]
// Application.CreateForm(TReporte.Create, Reporte );    //primero creaba de esta forma, detecta LEAK
  Reporte := TReporte.Create(nil);   // luego lo creo de esta otra forma  LEAK
        try
             Reporte.prepare; 
             Reporte.Qrlabel.Caption := 'TEXTO';
            Reporte.Print;
        finally
           Reporte.Free;
        end;

El leak me lo marca en esa linea de creacion. (size 30)
Pero ademas, me engancha 2 LEAKS mas dentro de las UNITS DE QUICKREPORT (TQRPRINTER size 1572, TQRStream size 76)

Y al final mete otro LEAK asociado a mi exe


|+Leak #4: Type=Data at $0B861110; Total size=24576; Count=1 |
|-----------------------------------------------------------------------------------------------------------------------------------------------|
|00000002|03 |00000000|004C86F7|project.exe|000C86F7|System.Classes |TMemoryStream |Realloc

¿existirán estos leaks?

O serán fantasmas.

Porque en esa sección de impresión nunca tuve errores.

Y con el eureka pretendía optimizar un poco los recursos y que me ayude a testear.
Pero hasta ahora ve errores donde yo no. aunque ojo SUELO ESTAR CORTO DE VISTA.