unitunit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 =class(tform)
button1: tbutton;
button2: tbutton;
procedureformcreate(sender: tobject);
procedurebutton1click(sender: tobject);
procedurebutton2click(sender: tobject);
end;
var
form1: tform1;
implementation
type
pmyrec = ^myrec;
myrec =record
name:string[8
];
age : word;
link: pmyrec;
end;
var
r1,r2,r3,r4: myrec;
proceduretform1.formcreate(sender: tobject);
begin
r4.name := '李四'
;
r4.age := 16
;
r4.link :=nil;
r3.name := '張三'
;
r3.age := 61
;
r3.link := @r4;
r2.name := '錢二'
;
r2.age := 24
;
r2.link := @r3;
r1.name := '趙一'
;
r1.age := 42
;
r1.link := @r2;
end;
proceduretform1.button1click(sender: tobject);
begin
showmessage(r1.name);
showmessage(r1.link^.name);
showmessage(r1.link^.link^.name);
showmessage(r1.link^.link^.link^.name);
end;
proceduretform1.button2click(sender: tobject);
begin
showmessage(r1.name);
showmessage(r1.link.name);
showmessage(r1.link.link.name);
showmessage(r1.link.link.link.name);
end;
end.
乙個簡單的單向鍊錶 C
singlylinkedlist.h include include class node 構造方法，方便快速建立結點 node int data,node next class list 返回鍊錶長度 list 建構函式 list const list temp 拷貝建構函式 list 析構函式 ...
記錄乙個單向鍊錶的實現
功能模組 資料鏈表 實現功能 1 單向資料鏈表，遍歷，查詢等都只是支援 從前往後 節點結構體 value是節點值，占用4個位元組，用處 1 當節點只需要存放乙個32位以下資料的時候，就可以使用value，data就可以不需要重新申請記憶體了 2 記憶體分配的最小單元是16個位元組，用來佔位到16個位...
鍊錶（一） 建立乙個最基本的單向鍊錶
1.結點 鍊錶中用來儲存乙個資料的儲存單元。乙個鍊錶至少需要由兩部分組成，就是資料域和指標域，一般形式的結點定義為 struct node typedef struct node elemsn 以上兩步等價於 typedef struct node elemsn 2.使用指標變數p表示結點的成員 p...