如何定义这种Record结构呢? ( 积分: 50 )

D

dujingwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-16

• #1

// TDelta = record
// FDelta_ID:integer;
// FDelta:String;
// FChildDelta:TDeltaList;
// end;
// TDeltaList = array of TDelta;

 

D

dujingwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-16

• #2

// TDelta = record
// FDelta_ID:integer;
// FDelta:String;
// FChildDelta:TDeltaList;
// end;
// TDeltaList = array of TDelta;

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-16

• #3

PDelta = ^TDelta
//TDelta 的指针类型

TDeltaList = array of PDelta;

TDelta = record
FDelta_ID:integer;
FDelta:String;
FChildDelta:TDeltaList;
end;

 

J

Jonson_sunshine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-16

• #4

同意楼上
你想要的结构是一个record里的最后一个域的数据类型是一个本record类型的数组，可以：
type
TDeltaList =^TDelta;
TDelta = record
FDelta_ID :integer;
FDelta :String;
FChildDelta :array of TDeltaList;
end;