DelphiÖ¸ÕëÀàÐÍdzÎö(¸½¼þ)
¸½¼þ×ÊÁÏ
*Ö¸ÕëµÄʹÓ㨴úÂ룩
ʾÀý£º¼òµ¥µÄÖ¸ÕëÓ¦ÓÃ
´úÂ룺
procedure TForm1.Button2Click(Sender: TObject);
var
a: Integer;
p: ^Integer;
begin
with self.Memo1.Lines do
begin
a := 100;
Add('Êý¾ÝÄÚÈÝ£º' + inttostr(a));
//---
p := @a;
Add('Êý¾ÝµØÖ·£º' + inttostr(Integer(p)));
//---
Add('Êý¾ÝµØÖ·Ö¸ÏòµÄÄÚÈÝ£º' + inttostr(p^));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
type
PInteger = ^Integer;
PPInteger = ^PInteger;
var
a: Integer;
p: PInteger;
pp: PPInteger;
begin
with self.Memo1.Lines do
begin
a := 100;
Add('IntegerÊý¾ÝÄÚÈÝ£º' + inttostr(a));
//---
p := @a;
Add('IntegerÖ¸ÕëÄÚÈÝ£º' + inttostr(Integer(p)));
Add('IntegerÖ¸ÕëÖ¸ÏòµÄÊý¾Ý£º' + inttostr(p^));
//---
pp := @p;
Add('PIntegerÖ¸ÕëÄÚÈÝ£º' + inttostr(Integer(pp)));
Add('PIntegerÖ¸ÕëÖ¸ÏòµÄÊý¾Ý£º' + inttostr(Integer(pp^)));
end;
end;
*Ö¸ÕëµÄʹÓ㨻ã±à£©
ʾÀý£º¼òµ¥µÄÖ¸ÕëÓ¦ÓÃ
˵Ã÷£º
¶ÔÓÚ±àÒëÆ÷À´Ëµ£¬Ö¸ÕëµÄÀàÐÍ¿ÉÒÔÓÃÀ´±êÃ÷µØÖ·ËùÖ¸ÏòÇøÓòµÄ´óС¡¢ËùÖ¸ÏòµÄÀàÐÍ£¨ÕûÐÍ¡¢¶ÔÏó¡¢·½·¨£©£¬ÒÔ¼°½øÐÐÖ¸ÕëÔ
Ïà¹ØÎĵµ£º
1¡¢ ·ÅÒ»ÏÂmemo¿Ø¼þ¡¢Ò»¸öbutton¡¢opendialog
ÔÚbuttonµÄclickʼþÖÐ
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.filename);
2¡¢Àļòµ¥µÄʰ¡
var
Mytxt : TStringList;
begin
MyText :=
TStringList('ÄãµÄÎı¾Îļþ¼°Â·¾¶');
&nbs ......
procedure frmMain.CLS; //Ö÷´°Ìå×Ô¶¨ÒåʼþCLS
var i:integer;
begin
for i:=0 to panel5.ControlCount -1 do
begin
if panel5.Controls[i] is TEdit then //Edit×é¼þ
begin
((panel5.Contro ......
Delphi ¹Ø¼ü×ÖÏê½â[ÕûÀíÓÚ "³È×Ó" µÄÌû×Ó]
absolute
//ËüʹµÃÄãÄܹ»´´½¨Ò»¸öбäÁ¿, ²¢ÇҸñäÁ¿µÄÆðʼµØÖ·ÓëÁíÒ»¸ö±äÁ¿Ïàͬ.
var
Str: string[32];
StrLen: Byte absolute Str;
//Õâ¸öÉùÃ÷Ö¸¶¨Á˱äÁ¿StrLenÆðʼµØÖ·ÓëStrÏàͬ.
//ÓÉÓÚ×Ö·û´®µÄµÚ0¸öλÖñ£´æÁË×Ö·û´®µÄ³¤¶È, ËùÒÔStrLenµÄÖµ¼´×Ö·û´®³¤¶È.
begin ......
¾µä°¸Àý·ÖÏí Ôݲ»Éæ¼°·ÖÇø±í,±íÉè¼ÆµÈ Ö»´Ó±È½ÏdzµÄ½Ç¶ÈÀ´ÓÅ»¯
1.Ïȼì²é³ÌÐò ¼ì²éÄ£ÐͲãµÄÉè¼ÆÓë±àÂëÊÇ·ñºÏÀí ½«ºÍÕâ¸ö±íÓÐÓа󶨵ÄÊý¾Ý¸ÐÖª¿Ø¼þÈ«²¿È¥µô¡£
2.¹ÀËãÒ»¸öÊý¾ÝµÄ×î´óÁ¿ ¿ÉÒÔ´ÓÉè¼Æ½Ç¶È Ò²¿ÉÒÔ´Ó¿Í»§ÌṩµÄÊý¾Ý·ÖÎö δÀ´Ò»¶¨ÖÜÆÚÄÚµÄÔ¤Ôö³¤Á¿
3.½«ÌõÂëµÄ³¤¶È±£´æÆðÀ´£¬ÏÈÓÃÌõÂëµÄ³¤¶È½øÐйýÂË£¬Èç¹û80%ÒÔÉϵ ......