textbox
IT博客 联系 聚合 管理
  103 Posts :: 7 Stories :: 22 Comments :: 0 Trackbacks
delphi 的string 引用数为0的时候它的内存也释放了.

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1  =   class (TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    fs1:string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s1,s2,s3:string;
  c:PChar;
  slis:TStringList;
  saddr:integer;
implementation

{$R  * .dfm}


function   StringStatus   ( var Str:   string):   string;
var ss1,ss2,ss3:string;
begin
Result   : =     ' Address: ' + IntToStr   (Integer   (Str))    +
   ' ,   Length:    '     +    IntToStr   (Length   (Str))    +
   ' ,   References:    '     +    IntToStr(PInteger(Integer(Str) - 8 ) ^ )  +
   ' ,   Value:    '     +    Str;
end;
function Readfilecontend(filename:string):string;
var s:TStringStream;
begin
  s: = TStringStream.Create;
  s.LoadFromFile(filename);

  result: = s.DataString;
  s.Free;
  s: = nil
end;

procedure TForm1.Button1Click(Sender: TObject);
var l_s,l_s1:string;
begin
    l_s: = Readfilecontend( ' C:\Users\admin\Desktop\7470.htm ' );
    saddr: = integer(l_s);
    l_s1: = l_s;
    s1: = l_s;
    fs1: = s1;
    StringStatus(s1);
    s2: = s1;
    self.Memo1.Lines.Add(StringStatus(string(saddr)));
    s3: = s2;
    self.Memo1.Lines.Add(StringStatus(string(saddr)));

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   s1: = '' ;
   self.Memo1.Lines.Add(StringStatus(string(saddr)));
   s2: = '' ;
   self.Memo1.Lines.Add(StringStatus(string(saddr)));
   s3: = '' ;
   self.fs1: = ' 12 ' ;
    // self.Memo1.Lines.Add(StringStatus(string(saddr)));
    // Pinteger(saddr - 8 ) ^ : = 0;
    // self.Memo1.Lines.Add(StringStatus(string(saddr)));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.


posted on 2011-03-28 17:41 零度 阅读(906) 评论(0)  编辑 收藏 引用 所属分类: delphi
只有注册用户登录后才能发表评论。