Re: [fpc-devel] TVarRec.VAnsiString memory leak?

[Michael Van Canneyt]

On Fri, 28 Mar 2008, [EMAIL PROTECTED] wrote:

> Hi.
> 
> This construction of setup vr.VAnsiString cause memoryleak:
> 
> program str;
> uses
>   heaptrc;
> var
>   s: ansistring;
>   vr: TVarRec;
> begin
>   SetString(s, 'xxx', 3); //ok
>   vr.VType := vtAnsiString;
>   SetString(AnsiString(vr.VAnsiString), 'yyy', 3); //Memory leak.
> end.

This is a correct way:

program str;

uses
  heaptrc;

var
  s,t: ansistring;
  vr: TVarRec;

begin
  SetString(s, 'xxx', 3); //ok
  vr.VType := vtAnsiString;
  t:='yyy';
  vr.VAnsiString:=Pointer(T); 
end.

Michael.
_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel