Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¡¶Delphi Ëã·¨ÓëÊý¾Ý½á¹¹¡·: Êý¾Ý¶ÔÆë

ΪÁ˼ӿìÓ²¼þµÄ·ÃÎÊËÙ¶È, ±àÒëÆ÷ͨ³£ÒªÊ¹ÓÃ"Êý¾Ý¶ÔÆë", Æ©Èç:
//ÏÂÃæ½á¹¹ÖÐ: SizeOf(TRec) = 6; ÒòΪ b ÔÚÕâÀïÒ²ÒªÕ¼ 2 ×Ö½Ú.
TRec = record
a: Word;
b: Byte;
c: Word;
end
;
//ÏÂÃæ½á¹¹ÖÐ: SizeOf(TRec) = 16; ÕâÀïµÄ a ºÍ b ¹²Õ¼ÁË 8 ¸ö×Ö½Ú.
TRec = record
a: Byte;
b: Byte;
c: Double;
end
;
//ÏÂÃæ½á¹¹ÖÐ: SizeOf(TRec) = 8; ÕâÀïµÄ a ºÍ b ¹²Õ¼ÁË 4 ¸ö×Ö½Ú.
TRec = record
a: Byte;
b: Byte;
c: Integer;
end
;
//ÏÂÀýʹÓÃÁ˽ṹѹËõ(ѹËõºó¾Í¶Ô²»ÆëÁË), ËüÃǵĴóС»á·Ö±ðÊÇ: 2¡¢1¡¢8 ×Ö½Ú
TRec = packed
record
a: Word;
b: Byte;
c: Double;
end
;
ÏÂÃæÊÇÒ»¸ö²âÊÔ:
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class
(TForm)
Memo1: TMemo;
procedure
FormCreate(Sender: TObject);
end
;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
rec1 = record
x: Integer;
y: Integer;
z: Integer;
end
;
rec2 = record
x: Integer;
y: Byte;
z: Integer;
end
;
rec3 = packed
record
x: Integer;
y: Byte;
z: Integer;
end
;
procedure
TForm1.FormCreate(Sender: TObject);
const
DashLine = '----------------------------------'
;
var
r1: rec1;
r2: rec2;
r3: rec3;
begin
Memo1.Align := alClient;
Memo1.Clear;
Memo1.Lines.Add(Format('rec1 ½á¹¹µÄ´óСÊÇ: %d'
, [SizeOf(rec1)]));
Memo1.Lines.Add(Format('rec2 ½á¹¹µÄ´óСÊÇ: %d'
, [SizeOf(rec2)]));
Memo1.Lines.Add(Format('rec3 ½á¹¹µÄ´óСÊÇ: %d'
, [SizeOf(rec3)]));
Memo1.Lines.Add(DashLine);
Memo1.Lines.Add(Format('r1 ÖÐ x µÄµØÖ·ÊÇ: %d'
, [Integer(@r1.x)]));
Memo1.Lines.Add(Format('r1 ÖÐ y µÄµØÖ·ÊÇ: %d'
, [Integer(@r1.y)]));
Memo1.Lines.Add(Format('r1 ÖÐ z µÄµØÖ·ÊÇ: %d'
, [Integer(@r1.z)]));
Memo1.Lines.Add(DashLine);
Memo1.Lines.Add(Format('r2 ÖÐ x µÄµØÖ·ÊÇ: %d'
, [Integer(@r2.x)]));
Memo1.Lines.Add(Format('r2 ÖÐ y µÄµØÖ·ÊÇ: %d'
, [Integer(@r2.y)]));
Memo1.Lines.Add(Format('


Ïà¹ØÎĵµ£º

delphiÏÔʾ jpg¡¢png¡¢gif ͼƬ¼° gif ¶¯»­µÄ·½·¨

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Bu ......

Ò»ÃûDelphi³ÌÐòÔ±µÄ¿ª·¢Ï°¹ß

Ò»£®½¨Á¢¹¤³ÌĿ¼
   Ê×ÏÈ£¬µÚÒ»²½Òª×öµÄ£¬µ±È»ÊǸøÐÂÏîÄ¿½¨Ò»¸öµ¥¶ÀµÄĿ¼£¨±ðЦ£©¡£Ä¿Â¼Ãû³ÆÓëÏîÄ¿Ãû³ÆÍ¬Ãû£¬»òÕßÁíȡһ¸öÒ²¿É£¬Ö»ÒªÇå³þ¡¢¼òÁ·¡£È»ºó£¬ÔÚ´ËĿ¼Öд´½¨ÒÔϸ÷¸öĿ¼£º
   <Doc>£ºÓÃÀ´´æ·Å¸ÃÏîÄ¿Ïà¹ØµÄ¿ª·¢Îĵµ£¨ÐèÇó˵Ã÷£¬¸ÅÒªÉè¼Æ£¬ÏêϸÉè¼ÆµÈµÈµÈµÈ£©£»
   < ......

Delphi¼òµ¥UÅÌ´«È¾²¡¶¾

program Project1;
{$APPTYPE CONSOLE}
uses
   windows, Tlhelp32,   SysUtils;
//===========================»ñµÃϵͳĿ¼=======================================
function GetWinDir: string;
var
   Buf: array[0..MAX_PATH] of char;
begin
   GetSystemDirector ......

DelphiµÄ·¢Õ¹·½Ïò

¶Á“Delphi2010,DELPHIµÄÏ£Íû?”ÓиÐ
 
Ô­ÎÄ£ºhttp://www.gowjq.com/forum-29-1.html
 
 
1£©  Ê¢´óµÄÖ÷Òª¿ª·¢¹¤¾ßÊÇDelphi, Ïê¼û£º http://act.sdo.com/Delphi/£¬ ÓÎÏ·ÊÇÒ»ÖÖ¸´ÔÓ½»»¥½çÃæµÄ¿ª·¢£¬Delphi¿ÉÒÔʤÈΡ£Í¬Ñù×÷ΪÆóÒµÓ¦ÓõÄǰ¶Ë£¬ÓÃDELPHI¿ª·¢Ò²ÊǺܺõÄÑ¡Ôñ¡£
2£©  Ò ......

DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ


DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ
 
»ù±¾°²×°
1¡¢¶ÔÓÚµ¥¸ö¿Ø¼þ£¬Componet-->install component..-->PAS»òDCUÎļþ-->install;
2¡¢¶ÔÓÚ´ø*.dpkÎļþµÄ¿Ø¼þ°ü£¬File-->Open(ÏÂÀ­Áбí¿òÖÐÑ¡*.dpk)-->install¼´¿É£»
3¡¢¶ÔÓÚ´ø*.bplÎļþµÄ¿Ø¼þ°ü£¬Install Packages-->Add-->bplÎļþÃû¼´¿É£»
4¡¢Èç¹ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ