unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} type MyRec = record Name: string[8]; Age : Word; end; var RecArr: array[0..3] of MyRec; procedure TForm1.FormCreate(Sender: TObject); begin RecArr[3].Name := '李四'; RecArr[3].Age := 16; RecArr[2].Name := '張三'; RecArr[2].Age := 61; RecArr[1].Name := '錢二'; RecArr[1].Age := 24; RecArr[0].Name := '趙一'; RecArr[0].Age := 42; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(RecArr[0].Name); {趙一} ShowMessage(RecArr[1].Name); {錢二} ShowMessage(RecArr[2].Name); {張三} ShowMessage(RecArr[3].Name); {李四} end; end.
鏈表與數組的異同:
1、數組中的元素在內存中是連續的; 鏈表不是.
2、數組的內存是一次性分配和釋放的; 鏈表不是.
3、鏈表定位元素是順藤摸瓜; 數組是一步到位, 更快.
4、鏈表可以方便的插入和刪除元素; 用數組實現即麻煩有費時, 基本沒人這樣做.
5、鏈表擁有更多擴展的潛力!