各前辈： 如图在对TreeView操作中出现如上的提示，应当如何解决？ 行径窄处，留一步与人行 發表人 - deity 於 2003/10/30 23:04:07

另附代码：    var   Form1: TForm1;   GtreeProduct:TTreeNode;   MyData:pchar; implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject); begin   with treeProduct.Items do      begin        clear;   GtreeProduct:=Add(nil,'在产产品'); Addchild(GtreeProduct,'blank'); MyData:='1'; GtreeProduct.Data:=MyData; GtreeProduct:=Add(nil,'非在产产品'); Addchild(GtreeProduct,'blank'); MyData:='2'; GtreeProduct.Data:=MyData; end; procedure TForm1.TreeProductExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); var para,pstr:string; ProductQuery:TQuery; begin if Node.HasChildren then if Node.getFirstChild.Text='blank' then Node.DeleteChildren else exit; ProductQuery:=TQuery.Create(Application); pstr:=string(Node.Data); 这句的作用是什么？ if pstr[1]='1' then para:='where (zaichan=true)and (substring(bianma from 1 for 1))="1"'; if pstr[1]='2' then para:='where (zaichan=true)and (substring(bianma from 1 for 1))="2"'; with ProductQuery do begin close; Sql.Add('select bianma,mingcheng,xinghao,zaichan'); Sql.Add('from "F:\Cptz1\cptz1\table\tab101.db"'); Sql.Add(para); Sql.Add('Order by bianma'); open; while Not ProductQuery.Eof do begin TreeProduct.Items.AddChild(Node,ProductQuery.fieldbyname('bianma').AsString); next; end; end; end; end. 当我先执行红色部分（1）时，就会出现上面那个提示，但如果我设个断点，又不会出现问题，先执行（2）棕色部分也不会出现问题，不知为何？ 行径窄处，留一步与人行

請在procedure TForm1.FormCreate(Sender: TObject);最末一行end;前 加入treeProduct.Items.Item[0].Selected := True; 試試看.

MyData:pchar; 基本上是PChar的使用错误，建议定义 type PMyData=^TMyData; TMyData=record   Data:string; end; var   MyData:PMyData;    每次New(MyData);     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

谢谢各前辈为小弟的指教 如chfamy前辈所说，再执行的时候会有提示说找不到索引文件，编译不过…… mustapha.wang前辈，按你的方法是可以PS，不过觉得奇怪，就是当我只拉一个TreeView到窗口时，使用同一段代码，它就没有错误提示？ 为什么和其他的一起就会有错误，还有Data本来就是指针类型，干吗不直接使用？ 自定义和本身两者有什么不同？ 行径窄处，留一步与人行