| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> delphi >> DELPHI中的记录类型【存储方式和变体记录】
 

DELPHI中的记录类型【存储方式和变体记录】

2006-09-16 05:50:32 编辑來源:互联网 繁體版 评论
 
 
  一、DELPHI中记录的存储方式

   在DELPHI中,我们用record关键字来表明一个记录,有时候,我们还会看到用packed record来声明的记录,这二者的区别就在于存储方式的不同。

   在windows中,内存的分配一次是4个字节的,而Packed按字节进行内存的申请和分配,这样速度要慢一些,因为需要额外的时间来进行指针的定位。因此如果不用Packed的话,Delphi将按一次4个字节的方式申请内存,因此如果一个变量没有4个字节宽的话也要占4个字节!这样浪费了一些空间,但提高了效率。所谓鱼与熊掌不可兼得。

   例如一个记录,以,sizeof(wudi)应该得到8。而如果使用packed关键字,那么sizeof(wudi)则得到5。

DELPHI中的记录类型【存储方式和变体记录】
type wudi= record

DELPHI中的记录类型【存储方式和变体记录】
age : integer;

DELPHI中的记录类型【存储方式和变体记录】
sex : shortint;

DELPHI中的记录类型【存储方式和变体记录】
end;

   其中age是integer类型,正好4个字节,而sex是showint类型,占用一个字节,但基于4字节得内存分配方式,这里它也将占用4个字节。所

  二、DELPHI中的变体记录

   在DELPHI中,观察Tmessage和TTypeData的定义的定义,从关键字record,你一眼就可以看出,它是一个记录类型,但仔细观察,你又会发现在它的定义中出现了case关键字。它代表什么呢?

   它代表此记录是变体记录。让我们先去了解一下变体记录。

   2.1一个典型的变体记录定义如下:

DELPHI中的记录类型【存储方式和变体记录】
type recordTypeName = record

DELPHI中的记录类型【存储方式和变体记录】
fieldList1: type1;

DELPHI中的记录类型【存储方式和变体记录】
...

DELPHI中的记录类型【存储方式和变体记录】
fieldListn: typen;

DELPHI中的记录类型【存储方式和变体记录】
case tag: ordinalType of

DELPHI中的记录类型【存储方式和变体记录】
constantList1: (variant1);

DELPHI中的记录类型【存储方式和变体记录】
...

DELPHI中的记录类型【存储方式和变体记录】
constantListn: (variantn);

DELPHI中的记录类型【存储方式和变体记录】
end;

   其中case到结尾部分定义了多个变体字段。所有变体字段共享一段内存大小又最大变体字段决定。

   2.2使用变体记录时要注意:

  (1)Long String、WideString、Dynamic Array、Interface的大小都是指针大小, OleVariant其实就是COM SDK中的VARIANT结构,大小是16字节。但在Object Pascal中它们都需要自动终结化,如果它们出现在variant part中,编译器就无法知道它们是否应该进行终结化――因为不知道当前存储的是哪种类型。

  (2)所有变体字段共享一段内存。而共享内存的大小则由最大变体字段决定。

  (3)当tag存在时,它也是记录的一个字段。也可以没有tag。

  (4)记录的变体部分的条件域必须是有序类型

  (5)记录类型中可以含有变体部分,有点象case语句,但没有最好的end,变体部分必需在记录中其他字段的声明之后

   2.3变体记录得作用

  (1)节约空间。对于那些要根据条件而决定是否存储得类型,完全可以利用变体记录来达到节约空间得效果。例如,一个公司的员工薪水可以是月薪、年薪等方式,那么并没有必要在记录中都分配空间而又用不到。

  (2)类型的转换。例如,如果有一个64位的整数类型作为变体的第一个字段,一个32位的整数Integer类型作为另一个变体的第一个字段,那么可以向64字段赋值然后以整数Integer字段读出其前32位

  (3)妙用还有很多,根据它的原理挖掘吧

   2.4一个演示变体记录使用的例子

DELPHI中的记录类型【存储方式和变体记录】
DELPHI中的记录类型【存储方式和变体记录】
...{

DELPHI中的记录类型【存储方式和变体记录】
作者 :wudi_1982

DELPHI中的记录类型【存储方式和变体记录】
联系方式:wudi_1982@hotmail.com

DELPHI中的记录类型【存储方式和变体记录】
转载请著名出处

DELPHI中的记录类型【存储方式和变体记录】
}

DELPHI中的记录类型【存储方式和变体记录】
unit Unit1;

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
interface

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
uses

DELPHI中的记录类型【存储方式和变体记录】
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

DELPHI中的记录类型【存储方式和变体记录】
Dialogs,typinfo, StdCtrls, ComCtrls, ExtCtrls;

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
type

DELPHI中的记录类型【存储方式和变体记录】
WdFileType = (Files, Dirs);//类型信息

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
TWdFileInfo = record//一个变体记录

DELPHI中的记录类型【存储方式和变体记录】
Fname: string[10];//文件名

DELPHI中的记录类型【存储方式和变体记录】
case typeid:WdFileType of//根据是文件夹还是文件来决定

DELPHI中的记录类型【存储方式和变体记录】
Files : (Fsize : integer);//文件大小

DELPHI中的记录类型【存储方式和变体记录】
Dirs : (Dsize : integer;//文件夹大小

DELPHI中的记录类型【存储方式和变体记录】
ContainFileCount : integer;//包含文件的个数

DELPHI中的记录类型【存储方式和变体记录】
ContainDirCount : integer);//包含文件夹的个数

DELPHI中的记录类型【存储方式和变体记录】
end;

DELPHI中的记录类型【存储方式和变体记录】
TForm1 = class(TForm)

DELPHI中的记录类型【存储方式和变体记录】
Memo1: TMemo;

DELPHI中的记录类型【存储方式和变体记录】
Panel1: TPanel;

DELPHI中的记录类型【存储方式和变体记录】
Button1: TButton;

DELPHI中的记录类型【存储方式和变体记录】
GroupBox1: TGroupBox;

DELPHI中的记录类型【存储方式和变体记录】
Label1: TLabel;

DELPHI中的记录类型【存储方式和变体记录】
procedure FormCreate(Sender: TObject);

DELPHI中的记录类型【存储方式和变体记录】
procedure Button1Click(Sender: TObject);

DELPHI中的记录类型【存储方式和变体记录】
private

DELPHI中的记录类型【存储方式和变体记录】
pp : array[0..1] of TWdFileInfo;//一个变体记录数组

DELPHI中的记录类型【存储方式和变体记录】
procedure ShowInfo; //在memo中显示当前变体记录的信息

DELPHI中的记录类型【存储方式和变体记录】
public

DELPHI中的记录类型【存储方式和变体记录】
end;

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
var

DELPHI中的记录类型【存储方式和变体记录】
Form1: TForm1;

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
implementation

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
DELPHI中的记录类型【存储方式和变体记录】
...{$R *.dfm}

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
procedure TForm1.FormCreate(Sender: TObject);

DELPHI中的记录类型【存储方式和变体记录】
begin

DELPHI中的记录类型【存储方式和变体记录】
//初始化是为记录赋值

DELPHI中的记录类型【存储方式和变体记录】
with pp[0] do

DELPHI中的记录类型【存储方式和变体记录】
begin

DELPHI中的记录类型【存储方式和变体记录】
Fname := 'PP0';

DELPHI中的记录类型【存储方式和变体记录】
typeid := Files;

DELPHI中的记录类型【存储方式和变体记录】
//fsize和dsize实际用的是同一块存储空间,

DELPHI中的记录类型【存储方式和变体记录】
//这里两个都赋值了,存储空间中记录的自然是后者

DELPHI中的记录类型【存储方式和变体记录】
Fsize := 10;

DELPHI中的记录类型【存储方式和变体记录】
Dsize := 100;

DELPHI中的记录类型【存储方式和变体记录】
ContainFileCount := 1;

DELPHI中的记录类型【存储方式和变体记录】
ContainDirCount := 2;

DELPHI中的记录类型【存储方式和变体记录】
end;

DELPHI中的记录类型【存储方式和变体记录】
with pp[1] do

DELPHI中的记录类型【存储方式和变体记录】
begin

DELPHI中的记录类型【存储方式和变体记录】
Fname := 'PP1';

DELPHI中的记录类型【存储方式和变体记录】
typeid := Dirs;

DELPHI中的记录类型【存储方式和变体记录】
Fsize := 0;

DELPHI中的记录类型【存储方式和变体记录】
Dsize := 100;

DELPHI中的记录类型【存储方式和变体记录】
ContainFileCount := 11;

DELPHI中的记录类型【存储方式和变体记录】
ContainDirCount := 222;

DELPHI中的记录类型【存储方式和变体记录】
end;

DELPHI中的记录类型【存储方式和变体记录】
Memo1.Clear;

DELPHI中的记录类型【存储方式和变体记录】
ShowInfo;

DELPHI中的记录类型【存储方式和变体记录】
end;

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
procedure TForm1.ShowInfo;

DELPHI中的记录类型【存储方式和变体记录】
var

DELPHI中的记录类型【存储方式和变体记录】
i : integer;

DELPHI中的记录类型【存储方式和变体记录】
fs : string;

DELPHI中的记录类型【存储方式和变体记录】
begin

DELPHI中的记录类型【存储方式和变体记录】
Memo1.Lines.Add('变体记录信息显示');

DELPHI中的记录类型【存储方式和变体记录】
for i := 0 to 1 do

DELPHI中的记录类型【存储方式和变体记录】
begin

DELPHI中的记录类型【存储方式和变体记录】
fs := Format('PP%d的大小是(%d)'+#13+'Fsize:(%d),Dsize:(%d)'+#13+'ContainFileCount:(%d),CDirCount:(%d);'

DELPHI中的记录类型【存储方式和变体记录】
,[i,sizeof(pp[i]),pp[i].Fsize,pp[i].Dsize,pp[i].ContainFileCount,pp[i].ContainDirCount]);

DELPHI中的记录类型【存储方式和变体记录】
Memo1.Lines.Add(fs);

DELPHI中的记录类型【存储方式和变体记录】
Memo1.Lines.Add('------------------------');

DELPHI中的记录类型【存储方式和变体记录】
end;

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
end;

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
procedure TForm1.Button1Click(Sender: TObject);

DELPHI中的记录类型【存储方式和变体记录】
begin

DELPHI中的记录类型【存储方式和变体记录】
Memo1.Clear;

DELPHI中的记录类型【存储方式和变体记录】
end;

DELPHI中的记录类型【存储方式和变体记录】


DELPHI中的记录类型【存储方式和变体记录】
end.

DELPHI中的记录类型【存储方式和变体记录】


  转载请著名出处,谢谢!
 
 
 
上一篇《DELPHI中使用RTTI》
下一篇《DELPHI中使用热键》
 
 
 
 
 
 
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
 
一、DELPHI中记录的存储方式 在DELPHI中,我们用record关键字来表明一个记录,有时候,我们还会看到用packed record来声明的记录,这二者的区别就在于存储方式的不同。 在windows中,内存的分配一次是4个字节的,而Packed按字节进行内存的申请和分配,这样速度要慢一些,因为需要额外的时间来进行指针的定位。因此如果不用Packed的话,Delphi将按一次4个字节的方式申请内存,因此如果一个变量没有4个字节宽的话也要占4个字节!这样浪费了一些空间,但提高了效率。所谓鱼与熊掌不可兼得。 例如一个记录,以,sizeof(wudi)应该得到8。而如果使用packed关键字,那么sizeof(wudi)则得到5。 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] type wudi= record [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] age : integer; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] sex : shortint; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; 其中age是integer类型,正好4个字节,而sex是showint类型,占用一个字节,但基于4字节得内存分配方式,这里它也将占用4个字节。所 二、DELPHI中的变体记录 在DELPHI中,观察Tmessage和TTypeData的定义的定义,从关键字record,你一眼就可以看出,它是一个记录类型,但仔细观察,你又会发现在它的定义中出现了case关键字。它代表什么呢? 它代表此记录是变体记录。让我们先去了解一下变体记录。 2.1一个典型的变体记录定义如下: [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]type recordTypeName = record [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] fieldList1: type1; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ... [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] fieldListn: typen; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]case tag: ordinalType of [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] constantList1: (variant1); [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ... [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] constantListn: (variantn); [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; 其中case到结尾部分定义了多个变体字段。所有变体字段共享一段内存大小又最大变体字段决定。 2.2使用变体记录时要注意: (1)Long String、WideString、Dynamic Array、Interface的大小都是指针大小, OleVariant其实就是COM SDK中的VARIANT结构,大小是16字节。但在Object Pascal中它们都需要自动终结化,如果它们出现在variant part中,编译器就无法知道它们是否应该进行终结化――因为不知道当前存储的是哪种类型。 (2)所有变体字段共享一段内存。而共享内存的大小则由最大变体字段决定。 (3)当tag存在时,它也是记录的一个字段。也可以没有tag。 (4)记录的变体部分的条件域必须是有序类型 (5)记录类型中可以含有变体部分,有点象case语句,但没有最好的end,变体部分必需在记录中其他字段的声明之后 2.3变体记录得作用 (1)节约空间。对于那些要根据条件而决定是否存储得类型,完全可以利用变体记录来达到节约空间得效果。例如,一个公司的员工薪水可以是月薪、年薪等方式,那么并没有必要在记录中都分配空间而又用不到。 (2)类型的转换。例如,如果有一个64位的整数类型作为变体的第一个字段,一个32位的整数Integer类型作为另一个变体的第一个字段,那么可以向64字段赋值然后以整数Integer字段读出其前32位 (3)妙用还有很多,根据它的原理挖掘吧 2.4一个演示变体记录使用的例子 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url]...{ [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gif[/img][/url] 作者 :wudi_1982 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gif[/img][/url] 联系方式:wudi_1982@hotmail.com [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gif[/img][/url] 转载请著名出处 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockEnd.gif[/img][/url]} [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]unit Unit1; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]interface [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]uses [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Dialogs,typinfo, StdCtrls, ComCtrls, ExtCtrls; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]type [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] WdFileType = (Files, Dirs);//类型信息 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] TWdFileInfo = record//一个变体记录 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Fname: string[10];//文件名 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] case typeid:WdFileType of//根据是文件夹还是文件来决定 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Files : (Fsize : integer);//文件大小 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Dirs : (Dsize : integer;//文件夹大小 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ContainFileCount : integer;//包含文件的个数 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ContainDirCount : integer);//包含文件夹的个数 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] TForm1 = class(TForm) [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Memo1: TMemo; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Panel1: TPanel; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Button1: TButton; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] GroupBox1: TGroupBox; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Label1: TLabel; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] procedure FormCreate(Sender: TObject); [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] procedure Button1Click(Sender: TObject); [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] private [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] pp : array[0..1] of TWdFileInfo;//一个变体记录数组 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] procedure ShowInfo; //在memo中显示当前变体记录的信息 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] public [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]var [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Form1: TForm1; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]implementation [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url]...{$R *.dfm} [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.FormCreate(Sender: TObject); [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //初始化是为记录赋值 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] with pp[0] do [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] begin [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Fname := 'PP0'; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] typeid := Files; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //fsize和dsize实际用的是同一块存储空间, [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //这里两个都赋值了,存储空间中记录的自然是后者 [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Fsize := 10; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Dsize := 100; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ContainFileCount := 1; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ContainDirCount := 2; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] with pp[1] do [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] begin [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Fname := 'PP1'; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] typeid := Dirs; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Fsize := 0; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Dsize := 100; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ContainFileCount := 11; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ContainDirCount := 222; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Memo1.Clear; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ShowInfo; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.ShowInfo; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]var [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] i : integer; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] fs : string; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Memo1.Lines.Add('变体记录信息显示'); [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] for i := 0 to 1 do [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] begin [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] fs := Format('PP%d的大小是(%d)'+#13+'Fsize:(%d),Dsize:(%d)'+#13+'ContainFileCount:(%d),CDirCount:(%d);' [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ,[i,sizeof(pp[i]),pp[i].Fsize,pp[i].Dsize,pp[i].ContainFileCount,pp[i].ContainDirCount]); [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Memo1.Lines.Add(fs); [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Memo1.Lines.Add('------------------------'); [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.Button1Click(Sender: TObject); [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Memo1.Clear; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end. [url=http://www.wangchao.net.cn/bbsdetail_501491.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] 转载请著名出处,谢谢!
󰈣󰈤
 
 
 
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
桌球宝贝_性感在蔓延(3)
桌球宝贝_性感在蔓延(2)
银杏树下清纯女孩(9)
银杏树下清纯女孩(8)
痞子的甘南日记
疑是银河落九天
雪域坝上四——纯美色
冬日恋歌——西城杨柳弄轻柔
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
©2005- 王朝网络 版权所有