各位大大，圣诞快乐！ C Builder有这么几句，在Delphi要如何写呢？谢谢 ATTGUARDRECORD *pRecordBuffer = new ATTGUARDRECORD[nCount]; ATTGUARDRECORD *pBuffer = pRecordBuffer; ATTGUARDRECORD CardRecord; for(int iLoop = 0; iLoop < nCount; iLoop ) { CardRecord = *(pBuffer ); nIndex ; } delete []pRecordBuffer; 其中ATTGUARDRECORD记录结构如下： struct ATTGUARDRECORD { int nYear; int nMonth; int nDay; int nHour; int nMinute; int nSecond; int nAdr; };

給你一個範例.

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;      // 定義Structure ATTGUARDRECORD
  ATTGUARDRECORD = record
    nYear, nMonth, nDay, nHour, nMinute, nSecond, nAdr: Integer;
  end;
  // 定義Strcuture ATTGUARDRECORD的指蔈
  PATTGUARDRECORD = ^ATTGUARDRECORD;    var
  Form1: TForm1;
  pRecordBuffer, pBuffer: PATTGUARDRECORD;
  CardRecord: ATTGUARDRECORD;    implementation    {$R *.DFM}    procedure TForm1.Button1Click(Sender: TObject);
var
  nCount, iLoop, nIndex, i: Integer;    begin
  nCount := 5;
  // 分配記憶體
  GetMem(pRecordBuffer, SizeOf(ATTGUARDRECORD) * nCount);
  pBuffer := pRecordBuffer;
  // 設定每個 Structure ATTGUARDRECORD 的 nYear 值
  for i := 0 to nCount - 1 do
  begin
    ATTGUARDRECORD(pBuffer^).nYear := 1000 * (i   1);
    Inc(pBuffer);
  end;      pBuffer := pRecordBuffer;
  for iLoop := 0 to nCount - 1 do
  begin
    CardRecord := pBuffer^;
    ShowMessage(IntToStr(CardRecord.nYear));
    Inc(pBuffer);
    Inc(nIndex);
  end;      FreeMem(pRecordBuffer);
end;    end.