Olá amigos,
Estou com um problema de memory laeak e não estou conseguindo identifica-lo.
Segue o meu código:
Eu tenho a seguinte classe:
Código Delphi
[-]
type
TFormParam = class
private
FCampos: string;
procedure SetCampos(const Value: string);
public
VinculaCampos : TStringList;
property Campos: string read FCampos write SetCampos;
Constructor Create;
destructor Destroy;
end;
...
constructor TFormParam.Create;
begin
VinculaCampos := TStringList.Create;
end;
destructor TFormParam.Destroy;
begin
VinculaCampos.Free;
inherited;
end;
procedure TFormParam.SetCampos(const Value: string);
begin
FCampos := Value;
VinculaCampos.CommaText := Value;
end;
Estou utilizando ela para passar informações de um Form para o outro, como no exemplo:
No Form1 eu chamo assim:
Código Delphi
[-]
objParam := TFormParam.Create;
try
objParam.Campos := 'Neil=45, Brian=63, Jim=22';
if Form2 = nil then
Form2 := TForm2.Create(Self,objParam);
Form2.ShowModal;
finally
objParam.Free;
end;
No Form2 eu utilizo assim:
Código Delphi
[-]
constructor TForm2.Create(Owner: TComponent; FrmParametro: TFormParam);
var
i : Integer;
begin
inherited Create(Owner);
for I := 0 to FrmParametro.VinculaCampos.Count - 1 do
begin
lstBox1.Items.Add(FrmParametro.VinculaCampos.Names[i]) ;
lstBox2.Items.Add(FrmParametro.VinculaCampos.ValueFromIndex[i]);
end;
end;
Alguém saberia me dizer aonde esta o memory leak?