memory leak em classe

[sirmenon]

Resposta 1:
Eu estou usando o EurecaLog, ele aponta um memory leak na criação de TStringList.

Resposta 2:
Sim, esta compilando normalmente.

[JoseAntonio]

Código Delphi [-]
constructor TFormParam.Create; 
begin 
  VinculaCampos := TStringList.Create;
   
end;

[[gatosoft]]

Probablemente hagan falta estas linea...

Código Delphi [-]
destructor Destroy;

Cambiar por:

Código Delphi [-]
destructor Destroy; Override

Código Delphi [-]
constructor TFormParam.Create; 
begin 
 VinculaCampos := TStringList.Create;   
end;

Cambiar por:

Código Delphi [-]
constructor TFormParam.Create; 
begin 
   inherited create;
  VinculaCampos := TStringList.Create;   
end;

¿Has hecho un seguimiento (Debug) paso a paso (F7) para saber la linea que te genera el error?

Saludos,

[JoseAntonio]

una clase deberia tener las minimas interacciones con otras clases, esto es por una cuestion de orden, por eso yo normalmente utilizo formularios modales y funciones de clase y paso los parametros durante la creacion, ahi te envio un ejemplo para que lo modifiques al gusto

Código Delphi [-]
class function TfrmEditField.EditField(var AName, AType, ALong,
  ADisplay: string): boolean;
var
  AfrmEditfield: TfrmeditField;
begin
  try
    AfrmEditField := TfrmEditField.create(Application);
    AfrmEditField.lbNameField.Caption:= Aname;
    AfrmEditField.ComboTipo.text := AType;
    AfrmEditfield.DBLong.Text:= ALong;
    AfrmEditfield.DBDisplay.Text:= ADisplay;
    result := false;
    if AfrmEditField.ShowModal = mrOk then begin
      AType := AfrmEditField.combotipo.text;
      ALong := AfrmeditField.dblong.Text;
      Adisplay:= Afrmeditfield.DBDisplay.Text;
      result := true;
    end;
  finally
    AfrmEditField.free;
  end;

salu2

[sirmenon]

Olá amigos,
Colocando o override resolveu.
Obrigado pelas dicas.