textbox

IT博客 联系 聚合 管理
  103 Posts :: 7 Stories :: 22 Comments :: 0 Trackbacks

 

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 零度 阅读(622) 评论(0)  编辑 收藏 引用 所属分类: delphi
只有注册用户登录后才能发表评论。