最后一百零五分， 用过Shell Control Pack v1.5来看(105分)

H

heipi2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #1

TPTshelltree
如何通过代码改变根目录呢？
已经在设计时显示了shelltree，并且用(TPTShellLocator)能成功显示远程根目录
但需要的时配置后使用；
TV:= TPTshelltree.create(frmMain);
TV.BaseFolder.PathName:='//yhk/test';
后没有任何反应
新建立了一个TPtshellLocator还时没有用，
好像根本就不能调用阿，用update,show等函数失败
在界面中删除了这个shellTree后想动态添加，可以居然parent属性
TV.parent:=PanTV;说panTV,没有定义，明明定义过了，时个panel呀！！
我时菜鸟：（

 

H

heipi2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #2

介绍一个能修改根目录的控件也行阿，各位老大行行好！

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #3

D6自带的ShellTreeView。 要改变根目录指定root即可。
如：
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellTreeView1.Root:=ExtractFilePath(Application.ExeName);
end;

 

H

heipi2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #4

多谢多谢，我试试看，D6实在是不喜欢用，不能改回去了，真讨厌阿：（

 

H

heipi2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #5

真的好强大哦！！jrq,现在可以给你分了105，不过能不能再帮忙看一看？
有文本文件格式如下：
[文件] 1+3倍求和.exe
[标题] 1+3倍求和
[制作工具] 方正奥斯
[关键词] 倍/求和
<< 隔三行或者以上循环
[文件] 10的认识.exe
[标题] 10的认识
[制作工具] authorware
[关键词] 十/认识/10
怎么样方便的把这些项目添加到数据库中呢？需要动态建表嘛？
主要是如何取出来，给个思路就给分，谢谢

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #6

[]
具体不知道你的操作，可考虑以下（不知道你文本存储的“键”和“值”之间是否有‘＝’？）
1.d6带有ValueListEditor控件，适合读取你所说的文本的形式。
2.假如保存为ini文件，读取就简单多了。
var IniFile:TInifile;
str:=IniFile.Readstring('小节名','关键字',缺省值);
3.用TstringList读取。
4.参考http://www.delphibbs.com/delphibbs/dispq.asp?lid=1048662

读取后再和数据库联系。 就想到这么多，试试吧。

 

H

heipi2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #7

买单咯～～