record, packed record和變體記錄

aaie_ 2011-09-11

展開全文

//Integer類型剛好是4個字節(jié),ShortInt類型是1個字節(jié)，但是Windows中內(nèi)存是4字節(jié)分配，
  //所以這里其實還是4個字節(jié)，用SizeOf可以看到這個record的大小是8字節(jié)，這樣雖然浪
  //費了空間，但是加快了速度(Windows內(nèi)存分配中的邊界對齊原理)
  TPerson = record
    Age: Integer;
    Sex: ShortInt;
  end;

  TPackedPerson = packed record
    Age: Integer;
    Sex: ShortInt;  //使用packed record，用Sizeof可以看到這個record的大小是5字節(jié)；
  end;

  TEmployee = record
    ID: Integer;                       //Integer是4字節(jié)
    case Integer of
      0:(YearMoney: Integer);          //YearMoney和MonthMoney共用內(nèi)存，按最大內(nèi)存分配
      1:(MonthMoney: ShortInt);        //該record的大小是8字節(jié)
  end;

  TTagEmployee = record
    ID: Integer;
    case Grade: Integer of              //這里加入了Grade變量
      0:(YearMoney: Integer);           //YearMoney和MonthMoney共用內(nèi)存，按最大內(nèi)存分配
      1:(MonthMoney: ShortInt);         //該record的大小是12字節(jié)(ID+Grade+YearMoney)
  end;

1.在DELPHI中，我們用record關(guān)鍵字來表明一個記錄，有時候，我們還會看到用packed record來聲明的記錄，這二者的區(qū)別就在于存儲方式的不同；在windows中，內(nèi)存的分配一次是4個字節(jié)的，而Packed按字節(jié)進行內(nèi)存的申請和分配，這樣速度要慢一些，因為需要額外的時間來進行指針的定位。因此如果不用Packed的話，Delphi將按一次4個字節(jié)的方式申請內(nèi)存，因此如果一個變量沒有4個字節(jié)寬的話也要占4個字節(jié)！這樣浪費了一些空間，但提高了效率。

2.變體記錄的規(guī)則：

（1）Long String、WideString、Dynamic Array、Interface的大小都是指針大小，OleVariant其實就是COM SDK中的VARIANT結(jié)構(gòu)，大小是16字節(jié)。但在Object Pascal中它們都需要自動終結(jié)化，如果它們出現(xiàn)在variant part中，編譯器就無法知道它們是否應(yīng)該進行終結(jié)化――因為不知道當(dāng)前存儲的是哪種類型，因此他們不能出現(xiàn)在變體記錄類型中，或者用類似String[10]來定義；

（2）所有變體字段共享一段內(nèi)存，而共享內(nèi)存的大小則由最大變體字段決定—“最長”的變量決定；

（3）當(dāng)tag存在時，它也是記錄的一個字段。也可以沒有tag。

（4）記錄的變體部分的條件域必須是有序類型——Case后面跟的類型必須是Boolean，Integer等等有序類型。

（5）記錄類型中可以含有變體部分，有點象case語句，但沒有最后的end，變體部分必需在記錄中其他字段的聲明之后。

3.最經(jīng)典的變體記錄，Delphi中的TMessage結(jié)構(gòu)：

TMessage = packed record
    Msg: Cardinal;
    case Integer of
      0: (
        WParam: Longint;
        LParam: Longint;
        Result: Longint);
      1: (
        WParamLo: Word;
        WParamHi: Word;
        LParamLo: Word;
        LParamHi: Word;
        ResultLo: Word;
        ResultHi: Word);
  end;