大大您好： 有一個c++轉pascal的程式需要完成，想請問一下，下面的語法要如何用pascal表達呢??? 謝謝大大。 struct tfield { int itemset[11]; struct tfield *pointer; }*dat[tablesize]; 我的mail:cherng32@hotmail.com< >< > 發表人 - cherng32 於 2004/03/01 00:51:45

您好： 參考http://delphi.ktop.com.tw/topic.php?topic_Id=354 http://delphi.ktop.com.tw/topic.php?topic_Id=360 ~~應無所住而生其心~~

hi, 請參考:

struct tfield
{
  int itemset[11];
  struct tfield *pointer;
} *dat[tablesize];    ..    type
  PField = ^TField;
  TField = record
    itemset: Array[0..10] of Integer;
    pointer: PField;
  end;
var
  dat: Array[0..tablesize-1] of PField;    

不過 pointer 在 delphi 中是保留字, 雖然上面的宣告可以使用, 但建議你還是換一個變數名!!

 
struct tfield
{
int itemset[11];
struct tfield *pointer;
}*dat[tablesize];    dat是鏈表陣列
先用遞歸定義鏈表
type
  PNode = ^TNode;
  TNode = record
    itemset: Array[0..10] of Integer;
    Next: PNode;
  end;
然後宣告陣列
var
  dat: Array[0..tablesize-1] of PNode;     

========================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。