盒子论坛 v2.1

savegex1，谢谢你，，但还是不懂
可不可以详细一点？
我这样
type record
id: integer;
name: string;
end;
下面调用的时候，说我没有初始化。。
怎么回事啊？

----------------------------------------------
zhaohuijun

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/26 15:44:59

3楼：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    tv1: TTreeView;
    procedure Button1Click(Sender: TObject);
    procedure tv1Change(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  pTNode=^TNode;
  Tnode=record
    a:String;
    b:LOngint;
  end;
var
  Form1: TForm1;
  pt:pTNode ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:Longint;
cnode:ttreenode;
begin
  for i:=0 to 10 do
    begin
      new(pt);
      pt^.a :=inttostr(i);
      pt^.b :=i;
      cnode:=tv1.Items.AddObject(nil,pt^.a ,pt);
    end;
end;

procedure TForm1.tv1Change(Sender: TObject; Node: TTreeNode);
begin
if node<>nil then
  begin
    with ptnode(node.Data )^ do
     begin
      memo1.Text :=';
      memo1.Lines.Add('第'+Inttostr(node.AbsoluteIndex )+
                  '个节点 '+'记录是a:'+a+' b是'+Inttostr(b));
     end;
  end;
end;

end.

此帖子包含附件:bios_2004226154459.rar 大小:5.5K

----------------------------------------------

信息

登陆以后才能回复