在DELPHI 中如何申请动态空间，如何建立链表？

Question

function TList.Add(Item: Pointer): Integer;
begin
  Result := FCount;
  if Result = FCapacity then
    Grow;
  FList^[Result] := Item;
  Inc(FCount);
  if Item <> nil then
    Notify(Item, lnAdded);
end;
看看这个程序有没有帮助

Answer 1

因该去看TList的add delete 程序因该就可以拉

Answer 2

//定义链表结构
type                 
  PMyRec = ^MyRec
  MyRec = pack record
    Code: Integer;
    Str: string;
  end;var
  P: PMyRec; //定义链表变量

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  New(P);
  P^.Code := I;
  P^.Str := IntToStr(I);
  P^.Next := nil;
end;

Answer 4

http://www.csdn.net/expert/topic/518/518030.xml?temp=1.093692E-02

Answer 5

amiao(海燕)说得对，还有，MyRec的定义中，也要有一个或两个PMyRec指针：Prev和Next。
然后用new(p)分配新空间，用dispose(p)释放内存。