Delphi编程里的双向链表

减小字体 增大字体 作者:万一  来源:万一的博客  发布时间:2010-11-13 13:17:53

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  PMyRec = ^MyRec;
  MyRec = record
    Name: string[8];
    Age : Word;
    Prev,Next: PMyRec; {上一个与下一个的结构指针}
  end;

var
  CurrentNode: PMyRec;

{建立双向链表}
procedure TForm1.FormCreate(Sender: TObject);
var
  PrevNode: PMyRec;
  i: Integer;
begin
  PrevNode := nil;
  for i := 65 to 71 do  {建七个节点, 准备用 AA, BB, CC, DD, EE, FF, GG 来指定 MyRec.Name }
  begin
    New(CurrentNode);
    CurrentNode.Name := Chr(i) + Chr(i);
    CurrentNode.Age := i;
    CurrentNode.Prev := PrevNode;
    if Assigned(PrevNode) then PrevNode.Next := CurrentNode;
    PrevNode := CurrentNode;
  end;

  Button1.Caption := '上一个';
  Button2.Caption := '下一个';
end;

{上一个}
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned(CurrentNode.Prev) then
  begin
    CurrentNode := CurrentNode.Prev;
    Text := CurrentNode.Name + #44 + IntToStr(CurrentNode.Age);
  end else Text := '这是第一个节点';
end;

{下一个}
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Assigned(CurrentNode.Next) then
  begin
    CurrentNode := CurrentNode.Next;
    Text := CurrentNode.Name + #44 + IntToStr(CurrentNode.Age);
  end else Text := '这是最后一个节点';
end;

end.
注:用 New 分配了, 还没有对应的 Dispose 释放,各位使用的时候一定要注意此处的问题!

Tags:

作者:万一
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B